

PRO7000 DC Motor Operator 

Manual forces, automatic limits 

New learn switch for learning the limits 

Code based on Flex GDO 



Notes : 



Motor is controlled via two Form C relays to control direction 
Motor speed is controlled via a fet (2 IRF540's in parallel) with a 
phase control PWM applies. 

Wall control (and RS232) are P98 with a redundant smart button and 
command button on the logic board 
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Flex GDO Logic Board 

Fixed AND Roiling Code Functionality 
Learn from keyless entry transmitter 
Pos i-lock 

Turn on light from broken IR beam (when at up limit) 

Keyless entry temporary password based on number of hours or number 
of activations. (Rolling code mode only) 

GDO is initialized to a 1 clean slate 1 mode when the memory is erased. 
In this mode, the GDO will receive either fixed or rolling codes, 
-N& When the first radio code is learned, the GDO locks itself into that 
is mode (fixed or roiling) until the memory is again erased. 

iss. Roiling code derived from the Leaded67 code 

£1 Using the 8K zilog 233 chip 

I U Timer interrupt needed to be 2X faster 

» 1 ' ''5 

«C3» _ — — — — — — — — — — — _ _ — _ 

X~ Revision History 

Revision 1.1: 

Changed light from broken I?, beam to work in both fixed and rolling 
modes . 

-- Changed light from IR beam to work only on beam break, not on beam, 
block . 

Revision 1.2: 

-- Learning rolling code formerly erased fixed code. Mode is now 
determined by first transmitter learned after radio erase. 

Revision 1.3: 

— Moved radio interrupt disable to reception of 20 bits. 

— Changed mode of radio switching. Formerly toggled upon radio error, 
now switches in pseudo- random fashion depending upon value of 
125 ms timer. 

Revision 1.4: 

-- Optimized portion of radio after bit value is determined. Used 
relative addressing to speed code and minimize ROM size. 

Revision 1 . 5 • 

-- Changed mode of learning transmitters. Learn command is now 

light -command, learn light is now light-lock, and learn open/close/ 
stop is lock -command . /Command was press light, press command, 
release light, release command, worklight was press light, press command, 
release command, release light, o/c/s was press lock, press command, 
release command, release lock. This caused DOG2 to reset) 
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Revision 1.6: 

Light button and light transmitter now ignored during travel. 
Switch data cleared only after a command switch is checked. 

Revision 1.7: 

Rejected fixed mode (and fixed mode test) when learning light and 
open/close/stop transmitters. 

Revision 1.8: 

Changed learn from wall control to work only when both switches are 
held. Modified force pot. read routine (moved enabling of blank 
time and disabling of interrupts; . Fixed mode now learns command 
with any combination of wall control switches. 

Revision 1 . S : 

Changed PWM output to go from 0-50% duty cycle. This eliminated the 
problem of PWK interrupts causing problems near 100% duty cycle. 
THIS REVISION REQUIRES A HARDWARE CHANGE. 

Revision 1 . 9A : 

— Enabled ROM checksum. Cleaned up documentation. 
Revision 2.0: 

0 " Blank time noise imrr.ur.i t i ty . If noise signal is detected during blank time the data 
■j* already recieved is net thrown out. The data is retained, and the noise 

£L pulse is identified as such. The interrupt is enabled to contine to look 

for the sync pulse. 

\jj Revision 2. OA: 

^ ~- On the event that the noise pulse is of the same duration as the sync pulse, 
the time between sync and first data pulse (inactive time) is measured. The 

^7 inactive time is 5.14ms for billion code and 2.4ms for rolling code. If it is 

determined that the previously received sync is indeed a noise pulse, the pulse 

; is throw:, out ar.c the rr.iorc continuies to look for a sync pulse as in Rev. 2.0. 

Revision 2.1: 

To make the blank time more impervious to noise, the sync pulses are 
differentiated between. Fixed max width is 4.6ms, roll max width is 2.3ms. 
This is simular to the inactive time check done in Rev. 2. OA. 
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Revision 2.2: 

— The worklight function; when the IR bearr. is broken and the door is at the up limit 
the light will turn on for 4.5 min. This revision allows the worklight function to 
be enabled and disabled by the user. The function will come enabled from the factory. 
To disable, with the light off press and hold the light button for 7 sec. The light will 
come on and after " sec. the function is disabled the light will turn off. Tc enable the 
function, turn the light on, release the button, then press and held the light button 
down for 7 sec. The light will turn off and after the function has been enable in 7 sec. 
the light will turn on. 

Revision 3.0: 

-- Integrated in functionality for Siminor rolling code transmitter. The Siminor 
transmitter may be received whenever a C code transmitter may be received. 
Siminor transmitters are able to perform as a standard command or as a light 
control transmitter, but net as an cpen/close/stop transmitter. 

Revision 3.1: 

-- Modified handling of rolling code counter (in mirroring and adding) to improve 
efficiency and hopefully kill all short cycles when a radio is jammed on the 
air . 



PRC"? 0 00 



Revision 0.1: 

-- Removed physical lirr.it tests 
-- Disabled radio terr.r trarily 
— Put in sign bit test for limits 
Automatic limits wcrkinc 
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Revision 0.2: 

Provided for traveling up when too close to limit 

Revision 0.3: 

Changed force pot. read to new routine. 

— Disabled Tl interrupt and all old force pot. code 

— Disabled all RS232 output 

Revision 0.4: 

— Added in (veerrrry) rough force into pot. read routine 
Revision 0.5: 

-* Changed EEPROM in comments to add in up limit, last operation, and 
down limit. 

Created OnePass register 

Added in limit read from nonvolatile when going to a moving state 

— Added in limit read on power-up 

Created passcounter register to keep track of pass point (s) 

Installed basic wake-up routine to restore position based on last state 

Revision 0.6: 

Changed RPM time read to routine used in P96 to save RAM 
Changed operation of RPK forced up travel 
Implemented pass pcir.t fcr one -pa ss -point travel 

Revi si cn 0 . *? : 

Changed pass point from single to multiple (no EEPROK support) 
Revision C . 8 : 

— Changed all SKIFRADIO loads from OxFF to NOEECOMM 
Installed EEPROM support for multiple pass points 

Revi si on 0.9: 

Chan gee state machine tc handle wake -up (i.e. always head towards 
the lowest pass point to re-orient the GDC} 

Revision 0.10: 

-- Changed the AC line input routine to work off full-wave rectified 
AC cominc in 



Revision C 

-- Installed the phase control . fcr meter speed control 

Revision 0.12: 

Installed traveling dew.-, if too near up limit 
Installed speed-up when starting travel 
Installed slcw-dowr. when ending travel 

Revision 0.13: 

Re-activated the C code 

Revision 0.14: 

Added in conditional assembly for Siminor radio codes 

Revision 0.15: 

Disabled old wall control code 

Changed all pins tc conform with new layout 

Removed unused constants 

Commented out old wall control routine 

Changed code to run at 6MHz 

K^visicr C .16 

-- Fixed bugs in Flex radio 
Rev.sior. C . 1 ~ 

-- Fe-er.arlec eld wall control. Changed command charging time tc 12 ms 
to fix FMEA problems with IR protectors. 

Revision 0.16 
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- Turned on learn switch connected to EE PROM clock line 



Revision 0.19 

— Eliminated unused registers 

Moved new registers out of radio group 

— Re-enabled radio interrupt 

Revision 0.20 

— Changed limit test to account for "lost" position 
Re-wrote pass point routine 



Revision 0.21 
-- Changed limit te 
— Changed criteria 
-- Changed lost ope 
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Revision 0.22: 

-- Added in L_A_C state machine to learn the limits 

installed learn- command to go into LAC mode 
-- Added in command button and learn button jog commands 
-- Disabled limit testing when in learn mode 
-- Added in LED flashing for in learn mode 

Added in EVERYTHING with respect to learning limits 
NOTE: LAC still isn't working properly!!! 

Revision 0.23: 

-- Added in RS232 functionality over wall control lines 



Revision 0.24: 

-- Touched up RS232 over wall control routine 

— Removed 50Hz force table 

-- Added in fixes tc LAC state machine 



Revision 0.25: 

— Added switch set and release for wail control (NOT smart switch) 
into RS232 commands (Turned debouncer set and release in to subs) 

-- Added smart switch into RS232 commands (smart switch is also a sub) 

— Re-enabled pass point test in ' : * RS232 command 

— Disabled smart switch scan when in RS2 32 mode 

-- Corrected relative references in debouncer subroutines 
RS232 ' F* command still needs to be fixed 

Revision C.2€: 

-- Added in max. fcrce operation until motor ramp-up is done 
-- Added in clearing cf slowdown flag in set_any routine 
-- Changed RPK timeout from 30 tc 60 ms 

Revision 0.2* 7 : 

-- Switched phase control to off, then on (was on, then off) inside 
each half cycle of the AC line (for noise reduction) 

Changed from 4 0ms unit max. period to 32 (will need further changes) 
Fixed bug in force ignore during ramp (previously jumped from down to 
up state machine ! ) 

— Added in complete force ignore at very slow part of ramp (need to change 

this tc ignore when very close tc limit) 
Removed that again 

— Bug fix — changed fcrce skip during ramp-up. Before, it kept counting 
down the force ignore timer. 

Revision 0.28: 

— Modified the wall control documentation 

Installed tlinkir.c the wall control on an IR reversal instead cf the 
worklight 

installed blinking the wall control when a pass point is seen 
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— Changed max. RPM timeout tc 100 ms 
-- Fixed well control blink bug 
Raised minimum speed setting 
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NOTE: Forces still need to be set to accurate levels 
Revision 0.30: 

— Removed 'ei f before setting of peon register 
-- Bypassed slow-down to limit during learn mode 

Revision 0.31: 

-- Changed force ramp to a linear FORCE ramp, not a linear time ramp 
Installed a look-up table to make the ramp more linear. 

— Disabled interrupts during radio pointer match 

— Changed slowdown flag to a up-down-stop ramping flag 

Revision 0.32; 

-- Changed down limit to drive lightly into floor 

-- Changed down limit when learning to back off of floor a few pulses 
Revision 0.33: 

-- Changed max. speed to 2/3 when a short door is detected 
Revision 0.34: 

-- Changed light timer tc 2.5 minutes for a 50 Hz line, 4.5 minutes for 
a 60 Hz line. Currently, the light timer is 4.5 minutes WHEN THE UNIT 
FIRST POWERS U? . 

Fixed p reel err. with lea vine P.? set to an extended group 



Revision 0.35: 



-- Changed starting position of pass point counter to 0x30 
Revision 0-36: 

-- Changed algorithm, for finding down limit to cure stopping at the floo: 
during the learn cycle 

— Fixed bug in learning limits: Up- limit was being updated from EEPROK 
during the learn cycle! 

-- Changed method of checking when lir.it is 'reached: calculation for 

distance tc limit is now ALWAYS performed 
-- Added in skipping of limit test when position is lost 

Revision 0.37: 

-- Revised minimum travel distance and short door constants to reflect 
approximately 10 R?K pulses / inch 

Revision 0.36: 

Moved slows tart numbe r closer tc the limit. 

— Chanaed backeff number from 10 to 6 

Re vi si on 0.39: 

-- Changed backoff number from P tc 12 

Revision 0.4C: 

Changed task switcher to unburden processor 

— Consolidated tasks 0 and 4 

Took extra unused code out of tasks 1, 3, 5, 7 
-- Moved aux light and 4 ms timer into task 6 
Put state machine into task 2 only 

Adjusted auto_delay, motdel, rpm_time_out , f orce_ignore , motor_timer, 
obs_count for new state machine tick 
-- Removed force_pre prescaler (no longer needed with 4ms state machine) 

— Moved updating of obs_count to one ms timer for accuracy 

Changed autoreverse delay timer into a byte-wide timer because it was 
only storing an 8 bit number anyways... 

Changed flash delay and light timer constants to adjust for 4ms tick 

Revision 0.41 

-- Switched back tc 4 MHz operation to account for the fact that Ziioc's 
26c "33 CTr wen't run at 6MHz reliably 

Revision 0.42: 

Extended RPM timer sc that it could measure from 0 - 524 ms with 
a resolution of 8us 
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Revision '0.43: 

-- Put in the new look-up table for the force pots (max RPM pulse period 
multiplied by 20 to scale it for the various speeds). 

— Removed taskswitch because it was a redundant r gister 

— Removed extra call to the auxlight routine 

Removed register 'temp* because, as far as I can tell, it does nothing 

— Removed light_pre register 

— Eliminated 'phase' register . because it was never used 

— Put in preliminary divide for scaling the force and speed 

— Created speedlevel AKT IDEAL speed registers, which are not yet used 

Revision 0 . 4~ : 

— Undid the work of revisions 0.44 through 0.4 6 

— Changed ramp-up and ramp-down to an adaptive ramp system 

— Changed force compare from subtract to a compare 

— Removed force ignore during ramp (was a kludge) 

— Changed max. RPM time out to 500 ms static 

— Put WDT kick in just before main loop 

— Fixed the word-wise T0EXT register 

— Set default RPM to max. to fix problem of not ramping up 

Revision 0.46: 

-- Took out adaptive ramp 

— Created look-ahead speed feedback in RPM pulses 
Revision 0.49: 

-- Removed speed feedback (again; 

NOTE : Speed feedback isn't necessarily impossible, but, after all my 
efforts, I've concluded that the design time necessary (a large 
amount) isn't worth the benefit it gives, especially given the 
current time constraints of this project. 

— Removed RPM_SET_DIFF lo and hi registers, along with I DEAL_S PEE D lo 
and hi registers (only need them for speed feedback) 

— Deleted speedlevel register (no longer needed) 

— Separated the start of slowdown for the up and down directions 

— Lowered the max. speed for short doors 

— Set the learn button tc NOT erase the memory when jogging limits 
Revision C.5G: 

— Fixed the force pot read to actually return a value of 0-64 

— Set the msx. RPM period time out tc be equivalent to the force setting 

Revision C . 5 1 : 

— Added in P2K_SHADOK register to make the following possible: 
-- Added in flashing warning light (with auto-detect) 

Revisi on 0.52: 

— Fixed the variable worklight timer to have the correct value on 
power-up 

— Re-enabled the reason register and stackreason 

— Enabled up limit to back off by one pulse if it appears to be 
crashing the up stop bolt. 

Set the door to ignore commands and radio when lost 
Changed start of down ramp to 22 0 
-- Changed backoff from 12 to 9 

— Changed drive-past of down limit to 9 pulses 
Revision 0.53: 

— Fixed RS232 '9' and ' F ' commands 

— Implemented RS232 ' K ' command 
Removed 1 M ' , ' P' , and 'S' commands 

-- Set the learn LED to always turn off at the end of the 
learn limits mode 

Revision 0 . 54 : 

Reversed the direction of the pot. read to correct the direction 
of the min. and max. forces when dialing the pots. 
-- Added in "U" command (currently does nothing) 
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— Added in "V" command to read force pot. values 
Revision 0.55: 

— Changed number of pulses added in to down limit from 9 to 16 
Revision 0.56: 

— Changed backoff number from 16 back to 9 (not 8!) 

— Changed minimum force/speed from 4/20 to 10/20 

Revision 0.57: 

— Changed backoff number back to 16 again 

Changed minimum force/speed from 10/2C back to 4/20 

— Changed learning speed from 10/20 to 20/20 

Revision 0.58: 

— Changed learning speed from 20/20 to 12/20 (same as short door) 
-- Changed force to max. during ramp-up period 

— Changed RPK timeout to a static value of 500 ms 

— Changed drive-past of limit from 1" tc 2" of trolley travel 
(Actually, changed the number from 10 pulses to 20 pulses) 

— Changed start of ramp-up from 1 to 4 (i.e. the power level) 

— Changed the algorithm when near the limit -- the door will no 
longer avoid going toward the limit, even if it is too close 

Revision 0.59: 

Removed ramp-up bug from autcreverse of GDO 

Revision 0.60: 

— Added in check for pass point counter of -1 to find position when lost 
-- Change in waking up when lost. GDO now heads toward pass point only on 

first operation after a power outage. Heads down on all subsequent 
operations . 

-- Created the "limits unknown" fault and prevented the GDO from traveling 

when the limits are net set at a reasonable value 

Cleared the fault cede on entering learn limits mode 
-- Implemented RS2 32 ' H' command 

Revision 0.61: 

Changed limit test to lock for trolley exactly at the limit position 
-- Changed search for pass point to erase limit memory 
-- Changed setup position tc 2" above the pass point 
-- Set the learn LET to turn off whenever the L_A_C is cleared 
-- Set the learn limits mode rc shu~ off whenever the wcrkiight times out 



Revision 0 . 62 : 

— Removed test for being exactly at down limit (it disabled the drive into 
the limit feature 

— Fixed bug causing the GDO tc ignore force when it should autoreverse 

— Added in ignoring commands when lost and traveling up 

Revision 0.63: 

Installed MinSpeed register to vary minimum speed with force pot 
setting 

— Created main loop routine to scale the min speed based on force pot. 

— Changed drive-past of down limit from 20 to 30 pulses (2" to 3") 

Revision 0 . 64 : 

-- Changed learning algorithm tc utilize block. (Changed autoreverse to 
add in 1/2" to position instead of backing the trolley off of the floor) 

— Enabled ramp-down when nearing the up limit in learn mode 

F.evi s ion C . €5 : 

-- Put special case in speed check to enable slow down near the up limit 
Revi s ion C . € 6 : 

-- Changes ramp-up: Ramping up of speed is now constant -- the ramp-down 

is the only ramp affected by the force pot. setting 

Changed ramp-up and ramp-down tests to ensure that the GDO will get "J? 

to the minimum, speed when we are inside the ramp-down zone (The above 
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change nec ssitated this) 

— Chang d down limit to add in 0.2" instead of 0.5" 

Revision 0.67: 

— Removed minimum travel test in set_arev_state 

— Mov d minimum distance of down limit from pass point from 5" to 2" 

— Disabled moving pass point when only one pass point has been seen 

Revision 0.66: 

— Set error in learn state if no pass point is seen 
Revision 0.65: 

Added in decrement of pass point counter in learn mode to kill bugs 

Fixed bug: Force pots were being ignored in the learn mode 

Added in filtering of the RPK (RPK_FILTER register and a routine in 

the one ms timer) 

Added in check of RPK filter inside RPK interrupt 

— Added in polling RPK pin inside RPM interrupt 

— Re-enabled stopping when in learn mode and position is lost 

Revision 0.70: 

-- Removed old method of filtering RPM 

— Added in a "debouncer " tc filter the RPK 

Revision 0.71: 

Changed "debouncer*' tc automatically vector low whenever an RPK pulse 
is considered valid 

Revision 0.72: 

— Changed number of pulses added in to down limit to 0. Since the actual 
down limit test checks for the position to be BEYOND the down limit 
this is the equivalent of adding one pulse into the down limit 

Revision C . f A : 

-- Undid the work of rev. C.7 3 

— Changed number of pulses added in to down limit to 1. Noting the comment 
in rev. 0.72, this means that we are adding in 2 pulses 

— Changed learning speed to vary between 8/20 and 12/20, depending upon 
the force pot. setting 

Revision 0.75: 

— Installed power-up chip IZ cr. F2 2 , P2 2 , P24, and P25 

Note: ID is or. F*2 4 , F21, ar.c F22 . F2 5 is a strobe to signal valid data 
F*rst chip 12 is 0C1 ■ v 1 - r. strobe, it's 1001) 

— Changed set_any routine tc re-enable the wall control just in case we 
stopped while the wall centre! was being turned off (to avoid disabling 
the wall control completely:. 

Changed speed during learr. mode tc be 2/3 speed for first seven seconds, 
then 'to slow down tc the minimum speed to make the limit learning the same 
as operation during normal travel. 

Revision 0.76: 

— Restored learning tc operate only at 60% speed 
Revision 0.77: 

— Set unit tc reverse off of floor and subtract 1" of travel 

— Reverted to learning at 40% - 60% of full speed 

Revision 0.78: 

— Changed rampflag to have a constant for running at full speed 

— Used the above change to simplify the force ignore routine 

— Also used it to change the RPK time out. The time out is now set equal 
to the pet setting, except during the ramp up when it is set to 500 ms . 

-- Changed highest fcrce pot setting to be exactly equal to 500ms. 

Revision C . 7 9 : 

— Changed setup routine tc reverse off block (yet again) . Added in one puis 
Revision 1.0: 
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— Enabled RS232 version number return 

— Enabled ROM checksum. Cleaned up documentation 

Revision 1.1: 

— Tweaked light times for 8.192 ms prescale instead of 8.0 ms prescale 

— Changed compare statement inside setvarlight to 'uge' for consistency 
Changed one-shot low time to 2 ms for power line 

— Changed one-shot low time to truly count falling-edge-to-falling-edge 

Rev is ion 1.2: 

-- Eliminated testing fcr lost GDO in set_up_dir_state (is already taken 

care of by set_dn_dir_state ) 
-- Created special time fcr max. run motor timer in learn mode: 50 seconds 

Revision 1.3: 

-- Fixed bug in set_any to fix stack imbalance 
-- Changed short door discrimination point to 78" 

Revision 1.4: 

-- Changed second * di' tc 'ei* in KnowSimCode 

-- Changed IR protector tc ignore for first 0.5 second of travel 

-- Changed blinking time constant to take it back to 2 seconds before travel 

Changed blinking code to ALWAYS flash during travel, with pre-travel flash 

when module is prcperly detected 
-- put in bounds checking on pass point counter to keep it in line 
-- Changed driving into down limit to consider the system lost if floor not see 

Revision 1.5:' 

Changed blinking of wall control at pass point to be a one-shot timer 
to correct problems with bad passpoint connections and stopping at pass 
point tc cause wall control ignore. 

Revision 1.6: 

Fixed blinking of wall control when indicating IR protector reversal 
to give the blink a true 50% duty cycle. 

Changed blinker output to output a constant high instead of pulsing. 
-- Changed P2£_POR tc 1010 (Indicate Siminor unit) 

Revision 1.7: 

Disabled Siminor Radic 

Changed F2£_POR tc 1012 {Indicate Lift-Master unit) 
-- Added in one more conditional assembly point to avoid use of simradio label 

Revision 1.6: 

Re-enabled Simincr Radio 
-- Changed P2S_POR back to 1010 (Siminor) 

-- Re-fixed blinking of wall control LED for protector reversal 
-- Changed blinking of wall control LED fcr indicating pass point 
-- Fixed error in calculating highest pass point value 
-- Fixed error in calculating lowest pass point value 

Revi s ion 1.9: 

— Lengthened blink time for indicating pass point 

— Installed a max. travel distance when lost 

— Removed skipping up limit test when lost 
-- Reset the position when lost and force reversing 
-- Installed sample of pass point signal when changing states 

Revision 2.0: 

— Moved main loop test for max. travel distance (was causing a memory 
fault before) 

Revi s ion 2.1: 

— Changed limit test tc use 11000000b instead of 10000000b to ensure 
only setting u: lir.it when we 1 re actually close. 

Revision 2.2: 

-- Changed minimum speed scaling tc move it further down the pot. rotation. 
Formula is now: ( (fcrce - 24) / 4) +4, truncated to 12 
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Changed max. travel test to be inside motor state machine. Max. travel 

test calculates for limit position differently when the system is lost. 

— Reverted limit test to use 10000000b 

— Changed some jp's to jr's to conserve code space 

— Changed loading of reason byte with 0 to clearing of reason byte (very 
desperate for space) 



Revision 2.3: 

-- Disabled Siminor Radic 

— Changed P2S_P0R to 1011 (Lift-Master) 

Revision 2.4: 

-- Re-enabled Siminor Radio 

Changed P2S_P0R to 1010 (Siminor) 

Changed wall control LED to also flash during learn mode 

— Changed reaction to single pass point near floor. If only one pass point 
is seen during the learn cycle, and it is too close to the floor, the 
learn cycle will now fail . 

— Removed an ei from the pass point when learning to avoid a race condition 



Revision 2.5: 

Changed backing off cf up limit to only occur during learn cycle. Backs 
off by 1/2" if learn cycle force stops within 1/2" of stop bolt. 

-- Removed considering systerr. lest if floor not seen. 

-- Changed drive-past of down limit to 36 pulses (3") 

-- Added in clearing cf power level whenever motor gets stopped (to turn off 
the FET's sooner) 

Added in a 40ms delay (using the same MOT DEL register as for the traveling 
states; to delay the shut-off of the motor relay. This should enable the 
motor to discharge some energy before the relay has to break the current 
flow) 

— Created STOPNOFLASH label it looks like it should have been there all along 
Moved incrementing MOT DEL timer into head of state machine to conserve space 

Revision 2.6: 

-- Fixed back-off of up limit to back off in the proper direction 

— Added in testing for actual stop state in back-off (before was always backing 
off the limit) 

Simplified testing for light being on in 'set any 1 routine; eliminated lights 
register 

Revision 2.7: (Test -only revision) 

Moved ei when testing fcr down limit 

Eliminated testing for negative number in radio time calculation 
-- Installed a primitive debouncer for the pass point (out of paranoia) 
-- Changed a pass point in the down direction to correspond to a position cf 1 

Installed a temporary echc cf the RPM signal on the blinker pin 
-- Temporarily disabled ROM checksum 

— Moved three subroutines before address 0101 to save space (2.7B) 

-- Framed look up using upforce and dnforce registers with di and ei to 
prevent corruption of upforce or dnforce while doing math (2.7C) 

— Fixed error in definition of pot_count register (2.7C) 

— Disabled actual number check of RPM perdod for debug (2.7D) 

— Added in di at test_up_sw and test__dn_sw for ramping up period (2. 7D) 
-- Set RPM_TIME_OUT to always be loaded to max value for debug (2.7E) 

— Set RPM_TIME_OUT to round up by two instead of one (2.7F) 
Removed 2 . 7E revision (2.7F) 

— Fixed RPM_TIME_OUT to round up in both the up and down direct ion (2 . 7G) 
Installed constant RS232 output of RPM_TIME_OUT register (2.7H) 

— Enabled RS232 •U' and *V % commands (2.71) 

— Disabled consant output of 2.7H (2.71) 

-- Set RS232 tc output RPM_TIME_OUT (2.71) 

Removed disable of actual RPM number check (2. 7 J) 
-- Removed pulsing tc indicate RPM interrupt (2. 7 J) 
-- 2. "J note -- need tc remove *u' command function 

Revision 2.8: 

Removed interrupt enable before resetting rpm__time_out . This will introduce 
roughly 30us of extra delay in time measurement, but should take care of 
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nuisance stops. 

Removed push-ing and pop-ing of RP in tasks 2 and 6 to save stack space (2.8B) 
Removed temporary functionality for *u' command (2.8 Release) 
Re-enabled ROM checksum (2.8 Release) 
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DO 


V32t 


U H 




Dl 








Pi 1 

VI 


| r ..i^ 






L' ± 


3 


^- — ■ 


A j 






oe 


A4 


D2 


J 1 "''; 


09 


A4 


D2 




OA 


A5 


D2 




OB 


A5 


D2 




OC 


A€ 


D3 




or 


A€ 


D3 


OE 


A7 


D3 




Or 


A" 


D3 




10 


A5 


D4 




i - 

— 


AS 






12 


A9 


D4 




1 3 


A9 


D4 




14 


Al v' 


D5 




15 


A10 


D5 




16 


All 


D5 




■ 17 


All 


D5 




18 


B 


Do 




IS 


B 


D€ 




1A 


C 


D6 




IB 


c 


D6 




1C 


unused 


D~ 




ID 


unused 


D7 




IE 


unused 


D7 




IF 


unused 


D7 




20 


unused 


DTCP 




21 


unused 


DTC1D 




22 


unused 


DTCR1 




23 


unused 


DTCP.2 




* 


unused 


™~ t* 




25 


unused 


Duration 



Multi-function transmitters 



Keyless permanent 4 digit code 
Keyless ID code 
Keyless Roll value 



2 6 



unused 



Radio 



Keyless temporary 4 digit code 
Keyless temporary duration 
Upper byte = Mode : 
Lower byte = : 

type 

-77665544 33221100 
00 = CMD 01 = LIGHT 



nours 
c f hours, ' = 



/sctiv 



i - - - <- c 
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t 

10 = OPEN/CLOSE/STOP 

27 unused Fixed / roll 

Upper word = fixed/roll byte 
Lower word = unused 

28 CYCLE COUNTER 1ST 16 BITS 

29 CYCLE COUNTER 2ND 16 BITS 
2 A VACATION FLAG 

Vacation Flag , Last Operation 
0000 XXXX in vacation 

1111 XXXX out of vacation 

2E A MEMORY ADDRESS LAST WRITTEN 

2C IRLIGHHTADDR 4-22-97 

2D Up Liir.it 

2E Pass point counter / Lasr operating state 

2F Down Limit 

30-3F Force Back trace 



RS2 32 DATA 






REASON 








00 


COMMAND 






10 


RADIO COMMAND 






2C 


FORCE 






30 


AUX OES 






40 


A REVERSE DELAY 






50 


LIMIT 






60 


EARLY LIMIT 






70 


MOTOR MAX TIME , 


TIME OUT 




80 


MOTOR COMMANDED 


OFF RPM CAUSING AREV 


Si 


90 


DOWN LIMIT WITH 


COMMAND HELD 




AO 


DOWN LIMIT WITH 


THE RADIO HELD 




B0 


RELEASE OF COMMAND OR RADIO AFTER A FORCED 


ips £ 


UP MOT 


OR ON DUE TO RPM PULSE WITHG MOTOR OFF 




STATE 








00 


AUTOREVERSE DELAY 




01 


TRAVELING U? DI 


RE Z7 J.OK 




02 


A- J. ni c r 


r-.- . _ - ^ z — _- 




03 


ERROR RESET 






04 


TRAVELING DOWN 


C I -I. \_ 1 1 UN 




OS 


AT THE DOW!; LIMIT 




0€ 


STOPPED IN MID 


TRAVEL 



DIAG 



1) AOBS SHORTED 

2) AOBS OPEN / MISS ALIGNED 

3) COMMAND SHORTED 

4) PROTECTOR INTERMITTENENT 

5) CALL DEALER 

NO RPM IN THE FIRST SECOND 

6) RPM FORCED A REVERSE 
7^ LIMITS NOT LEARN EI' YET 



DOG 2 



^ J 

DOG 2 ISA SECONDARY WATCHDOG USED TO 

RESET THE SYSTEM IF THE LOWEST LEVEL "MAINLOOP" 

IS NOT REACHED WITHIN A 3 SECOND 



Conditional Assembly 



GLOBALS ON 

Yes .equ 1 

No .equ 0 

T w oT h i r t y 7 h r e e .equ Yes 

UseSiminor .ecu Yes 



; Enable a symbol file 



• EOUATE 


STAT 












§ 

pVl o f~ V c i irn Tr;;! 
L lie \ ^ IX! 1 . vqj. 




P CI 1 1 
• t 


Of 

\mf V 1 W * i 


; CRC 


checksum for ROM code 






. ecu 


OCH 


/ TMR 


mask to start timer 1 






• C »J — 




; Max 


. run for motor - 27 se: ( 4 ms ti 






. Li w. 


( S fi 0 / L ' 

\ J V v / *s , 


; Delay before learning limits is 0.5 






. (J — 


/ tpn r- r / a \ 

V _J V L' %- w / *a, 


; Max 


. run for motor in learn mode 


PWfi^CHARGE 




. equ 


OOH 


; PWM 


sta 


te for old force pots . 


LI^fiT 




. equ 


OFFK 


; Flag for light on constantly 


LlbfcT OK 




. equ 


100000005 


; P0 


pin 


turning on worklight 


MQ©R UP 




. equ 


01000000S 


; P0 


pin 


turning on the up motor 






. equ 


00100000E 


; P0 


pin 


turning on the down motor 


UlfjOL-T 




. equ 


COCIOCCOB 


; P2 


pin ■ 


output for up force pot . 


DOWK_OU7 




. equ 


0C100CC0H 


; P3 


pin 


output for down force pot . 


DQgK COM? 




. ecu 


00000001E 


; P0 


pin 


input for down force pot . 


usgjpoMP 




. equ 


000000I0E 


; PC 


pin 


input for up force pot. 






. equ 


000000025 


; P2 


pin 


for false AOBS output 






. equ 


oooioc :-cx 


; P2 


pin 


for reading in AC line 


PFointPort 




.equ 




; Port for pass point input 


PassPcint 






*J V * \^ V 


; Bit 


mas 


k for pass point input 


Phase Prt 




. ecu 


pu 


; For 


t f c 


r phase control output 


PhaseKigh 




. equ 


00G100CCH 


; Fin 


for 


controlling FET * s 


CHARGE SW 




. equ 


lOOOOOOOB 


; P3 


Pin 


for charging the wal 1 control 


DIS SW 


. equ 


C1000 


CO 0B 


P3 Pin for discharging the wall control 


SWITCHESl 




. equ 


00001000B 


; P0 


Pin 


for first wall control input 


SWITCHES2 




. equ 


0000C10CB 


; P0 


Pin 


for second wall control input 



PC1M_INIT 
P2M_INIT 
P2M_POR 
P3M_INIT 

P01S_INIT 
P2S INIT 

P2S~POR 

p n c: v t 

BLINK_PIN 
P2^' *-~ L^*'~ 

± 4^ * * i* \*f W * 4 

P2M~ALLINS 



. equ 


00000101E 


9 
§ 


set mode p00-p03 in p04-p07 out 






. equ 


0101110CE 


* 


P2M initialization for operation 






. equ 


01C00000B 


* 

t 


P2M initialization for output of 


chip 


ID 


. equ 


00000011E 


m 

$ 


set port3 p30-p33 input ANALOG mode 




. equ 


lOOOOOOOB 


* 


Set init. state as worklight on, 


motor 


off 


. equ 


00000110B 


m 

r 


Init p2 to have LED off 






. equ 


00101010B 


. 


P2 init to output a chip ID (P25, 


P24, 


P23, 


. ecu 


( /- ^— * 


f 


Init p2 to have everything eff 






. equ 


w \J w t - w' _. \J V i— 


. 


Pin which controls flasher module 






. ecu 


" - - - - » ^- /- — 
^ ^. ^ \J u _ 




Pins which need to be refreshed t 


c out 


puts 


. equ 


01011000E 


. 


Pins which need to be refreshed t 


c inputs 



RsPerKalf 



ecu 



104 



; RS232 period 1200 Baud half time 4I6u£ 
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RsPerFull 
RsPerlP22 

FLASH 
WORKLIGHT 

PPOINTPULSES .equ 

SetupPos 

■CMD_TEST 

W LATEST 

VAC_TEST 

CHARGE 

RSSTATUS 

WALLOFF 

AUTO_REV 

UP_DIRECTION .equ 
UP_POSITION . equ 
DN_DIRECTION .equ 
DEPOSITION .equ 
STOP 

Ll5fh_SK 

trSe: 

F/fLSE 

FIX£D_MODE 
RCfeL_MODE 
Fi^ED_TEST 
RQLLJTEST 

RQLL_MASK 

FlUrHR .equ 

fSsync 

DgMC 

fI^bits 

DEITS 

EQUAL 
BACKWIN 

FWDKIK .equ 
OUTOFWIN 



. equ 
. equ 

. equ 
. equ 

897 



. equ 
. equ 
. equ 
. equ 
. equ 
. equ 

. equ 
01H 
02H 
04H 
05K 
. equ 
. equ 
. equ 
. eau 

. equ 
. equ 

. equ 
. equ 
. equ 
. equ 
. equ 
. equ 

03H 
. equ 
. equ 
. equ 
. equ 
. ecu 

. equ 

. ecu 
6 OH 
. eau 



208 
00 

OFFH 

LIGHT ON 



; RS231' period full time 832us 

; RS232 period 1.22 unit times 1.024ms (00 = 256) 



; Pin for toggling state of worklight 



; Number of RPM pulses between pass points 



.equ (65535 - 20} ; Setup position — 2" above pass point 



00 
01 
02 
03 
04 
05 

00H 



; States for old wall control routine 



; Hold wall control ckt. in RS232 mode 
; Turn off wall control LED for blinks 

; States for GDO state machine 



0 6H 
CiK 
02H 
04H 

OFFH 

00K 

10101010b 

01010101b 

00000000b 

00000001b 

FIXED_7ES' 

ROLL TEST 



02H 
08H 
04H 

^ - 

00 
7 FH 

OFFH 



; Flags for switches hit 



Generic constants 



; Fixed mode radio 

;Rolling mode radio 

; Unsure of mode — test fixed 

; Unsure of mode -- test roll 

;Bit mask for fixed mode 

;Bit mask for rolling mode 

; Fixed code decision threshold 

/Rolling code decision threshold 
; Fixed code sync threshold 
;Rolling code sync threshold 
; Fixed code number of bits 
/Rolling code number of bits 

/Counter compare result constants 



AddressCounter 
AddressAFointer 

CYCCOUNT 

TOUCHID 

TOUCHROLL 

TOUCHPERK 

TOUCHTEMP 

DURAT 

VERSIONNUM 

;4-22-9* 7 

I RL I G H TAD DR 

DISABLED 



equ 



. eau 
. equ 
. equ 
. equ 
. equ 



EQV 



27K 
2BH 



.equ 2 8K 



21H 
22H 
2 OH 
24H 
25H 



equ 088H 



0CK 



/Touch code ID 

/Touch code roll value 

/Touch code permanent password 

/Touch code temporary password 

/Touch code temp, duration 

/Version: PRO7000 V2 . 8 

/work light feature on or off. 
/00 = disabled, FF - enabled 



RTYPEADDR 
VACAT I ONADDR 
MODEADDR 



. equ 



.ecu 
2 AH 
. ecu 



2 6H 
2 7H 



/Radio transmitter type 

/Rolling/Fixed mode in EE FROM 
/High byte = don't care (now) 
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;Low byte ~ RadioMode flag 



T115T TM^nnp 
VJ r Lt X Plri U Ut\ 




• C 4 Li 


2DH 


; Address of up limit 


LASTSTATEADDR 


. qu 


2EH 




;Address of last state 


DNLIMADDR 




. equ 


2FH 


/Address of down limit 


NOEECOMM 




. equ 


01111111b 


;Flag: skip radio read/write 


NOINT 




. equ 


10000000b 


;Flag: skip radio int rrupts 


RDROPTIME 




. equ 


125 


; Radio drop-out time: 0.5s 


LRNOCS 


. equ 


OAAK 




; Learn open/close/stop 


BRECEIVED 


. equ 


077K 


;B code received flag 


LRN LIGHT 




. equ 


0BBK 


; Light command trans. 


LRN TEMP 




. equ 






LRNDURTN 




. equ 


0DDK 


; Learn t.c. temp, duration 


REGLEARN 




. equ 


0EEH 


/Regular learn mode 


NORMAL 


. equ 


UUn 




•Normal command trans 


ENTER 




. equ 


UUr. 


•Touch r*r»ri^ kev 


POUND 




. equ 


01K 


; Touch code # key 


STAR 




. equ 


02K 


; Touch code * key 


ACTIVATIONS 




. equ 


OAAK 


;Number of activations mode 






. ecu 


r, c c * * 

L- ^ ~j - . 


f l\ Lu L LU t; 1. w i. JJUUl w II1UUC 


^ ; Flags 

U i 


for 


Ramp Fla 


a Reaister 




stmL 




. equ 


OOH 


; Motor not moving 


RAitgyp 


. equ 


r\ t. Ti i_? 
UAAh 




. C s tt> t~v e a o r"4 nrv ^ f™\ Tn a v T TT1 1 1 TTi 
f isalTip 5pccu UJJ IUaAiiuuiu 


RAfiRDOWN 




. equ 


0FFH 


; Slow down the motor to minimum 


FUi£sPEED 




. equ 


0CCH 


; Running at full speed 


UPirfOWSTART 




. equ 


200 


; Distance (in pulses) from limit when slow- 


down 










DN$&OW START 




.equ 


220 


; of GDO motor starts {for up and down 


direction) 










ba(EUoff 




. equ 


16 


; Distance (in pulses) to back trolley off of 


f l£gr 








; when learning limits by reversing off of 










f lpi>r 










SHORT DOOR 




. equ 




; Travel distance (in pulses) that 


discriminates 


a 









door 



; one piece door (slow travel) from a norm 
; (normal travel) (Roughly 7c"} 



PERIODS 



AUTO_RE V_T I ME 
MIN_COUNT 
TOTAL_PWK_COUNT 
FLASH TIME 



.equ 124 

.equ 02 K 

.equ 03FK 

.equ 61 



(4 ms prescale) 
pwm start point 
pwm end - start + 2*total-l 
0.25 sec flash time 



;4.5 MINUTE USA LIGHT TIMER 



USA_LIGHT_HI .equ 080H 
USA LIGHT LO .ecu 0EEK 



; 4.5 MIN 

; 4.5 KIN 



;2.5 MINUTE EUROPEAN LIGHT TIKE?. 



EURO_LIGKI_HI 
EURO LIGHT LO 



. equ 



G4~H 
086H 



; 2.5 KIN 
; 2.5 MIN 



ONE SEC 



. equ 



0F4H 



; WITH A /4 IN FRONT 
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CMD_MAKE 
CMD_BREAK 
LIGHT_MAKE 
LIGHT_BREAK .equ 
VAC_MAKE_OUT . equ 
VAC_BREAK_OUT 
VAC_MAKE_IN .equ 
VAC BREAK IN .equ 



.equ 
. equ 
. equ 

(255-8) 



6 

(255-8) 
8 



.equ (255-4) 
2 

(255-2) 



; cycle count *10mS 
; cycle count *llmS 
; cycle count *100mS 



VAC_DEL 
CMD_DEL_EX 
VAC DEL EX 



, equ 
. equ 
. equ 



8 . 
€ 

50 



; Delay 16 ms for vacation 
; Delay 12 ms ( 5*2 + 2) 
; Delay 100 ms 



PREDEFINED REG 



******************* 



ALL_0N_IMR 
RETURN IMR 



.equ OOllllOlt 
.equ 00111100b 



; turn on int for timers rpm auxobs radio 
; return on the IMR 



Radiclmr 



. ecu 



00000001b 



; turn on the radio only 



GLOBAL REGISTERS 



STgT'JS 



S£ATE 
LineCtr 
Ramp Flag 
AUTO DELAY 
li^BePer 

M8TOR_TIMER_HI 
!^OR_TIMER_LO 
M^OR_TIMER .eqi; 
ll§6H7_7IMER_HI 
lS3=KTJTIKEF_LO 
LIGHT_TIMER 
AOBSF 
PrevFass 



CHECK_GR? 

check_sum 

rom_data 

test_adr_hi 

test_acr_i c 

test_adr 

CHECK_SUM 

ROM_DATA 

LIMJTEST_HI 

LIM~TEST_LC 

LIM_TEST 

AUXLEARNSK 

RRTO 

rpm_acount 

rs_coj::zz? 

RS2 32DA7 



. eau 



equ 
ecu 



equ 
equ 



.ecu 


04K 


. equ 


05K 


. equ 


06H 


.equ 


07 K 


. equ 


06H 


. equ 


0 9H 


. equ 


OAK 


. equ 


0BK 


OAK 




. e ci ^ 


0CK 


. equ 


DDK 


OCH 




. equ 


0EK 


. ecu 

* 


0 FK 


. equ 


1 CK 


. equ 


rO 


. equ 


rl 


r2 




r3 




. equ 


rr2 


. equ 


CHECK_GRP+0 


. equ 


CHECK GF.P+1 


.equ 


CHECK_GRP*G 


. equ 


CHECK GRP+1 


. equ 


CHECK GRP+0 


CHECK_ 


J3RP+2 


. equ 


~ CHECK GRP+3 


CHECK_ 


_GRP+4 


. equ 


CHECK Gr.r^r 


* e qu 


CHECK_GR?-r€ 



CMD_TEST 00 
WL_TEST 01 
VACJTEST 02 
CHARGE 03 

state register 

Ramp up, ramp down, or stop 

; Period of AC line coming in 



check sum pointer 



; check sum reg for por 
; data read. 



Compare registers for measuring 
distance to limit 



to test for active rpm 

; rs2 22 byte" counte: 
; rs232 data 



f.a::c_c>:: 
r_deai:_tike 

FAULT 
VAC FLA 3 
VAC FLASH 



G *" — 



equ CKECK_Gi\r-r& ; 
.equ CHECK_GRP+S 
.ecu CKECK_GF.?-IC 
.equ CHECK GRF+il 



; raaic coirjr.ar.u 



; VACATION mode flag 
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VACCHANGE .equ' CHECKJ3RP+ 12 

FAULT TIME .equ CHECK_GRP+13 

FORCE_I GNORE . qu CHECK_GRP+14 

FAULT CODE . equ CHECK_GRP+ 1 5 



TIMEF.J3ROUP 

position_hi 

position_lo 

position 

up_limit_hi 

up_limit_lo 

up_limit 

switch_delay 

obs_count 

rscommand 

rs_temp__hi 

rs_temp_lo 

rs^temp 

POSITION_HI 

positton_lo 
position 

UPji£KIT_HI 
UPJpIMIT_LO 
, UPjJpMIT 
SWljgf K_DELAY 
On Qp.a s s 
OB^fCOUKT 
RsffcSde 
DivJEscr 
RSCjgMMAND 

rs^temf_ki 
rs2tek?_lc 

RSrtEMP 
PowIrLevel 
PhegeTMR 
FhaleTime 
MafeSpeed 
O 



equ 



20H 



equ 



equ 



. equ 


rO 




. equ 


rl 




. equ 


rrO 




. equ 


r2 




. equ 


r3 




. equ 


rr2 




r4 






. equ 


r6 




. equ 


r9 




. equ 


riO 




. equ 


rll 




. equ 


rrlO 




. equ 


TIMER_ 


GROUP+0 


. equ 


timer] 


"group--! 


> e 2 *^ 


TIME?. 


~GROU?+0 


. equ 


TIMER_ 


~GROUF-«-2 


. equ 


timer" 


"GROUP+3 


. equ 


timer] 


"GROUP-2 


TIMER_ 


GROUP-r" 


4 


. equ 


" TIMER_ 


GROUP+5 


. equ 


timer" 


GROUP+6 


. equ 


timer] 


GROUP+7 


. equ 


timer" 


GROUP+8 


. equ 


TIMER* 


J3ROUF+9 


. equ 


TIMER* 


_GRDUP+1C 


. equ 


timer' 


GROU ?-*-!! 


. equ 


timer' 


GROUP-rlO 


. equ 


timer' 


GROUP+12 


. equ 


timer' 


GROUP+13 


. equ 


timer' 


GROUF+I4 


.equ 


timer' 


GROUP --15 



Number to divide by 



Current step in 20-step phase ramp-up' 
Timer for turning on and off phase control 
Current time reload value for phase timer 
Maximum speed for this kind of door 



; LEARN EE 


GROUP FOR 


LOOPS 


ECT 








LEARNEE_GRF 


. equ 


3 OH 










TEMPK 


. equ 


LEARN E 


E_GR? 








TEMPL 


. equ 


LEAF.NE 


E G?.r* 1 






Readable shadow of P2M register 


F2K_SKADOW 


. equ 


LEARNEE_GRP+2 






LEARN DE 




. equ 


LEARNEE_GRP+3 






learn debouncer 


LEARNT 




. equ 


LEARNEEJ3RP-4 






learn timer 


ERASE! 




. equ 


LEARNEE_GRP+5 






erase timer 


MTEMPH 




. eau 

* 


LEARNEE_GRP+€ 


m 

r 


memory temp 


MTEMFL 




. equ 


LEARN EE_GR F -r"7 




; memory temp 


MTEMP 


. equ 


LEARN EE GRP+8 


m 

t 


memory temp 


SERIAL 




. equ 


LEARNEE_GRP+S 




■ 

9 


data tc & from nonvoi memory 


ADDRESS 




. equ 


LEARNEE GRF-iO 




; address for the serial nonvoi memory 


ZZWIN 


. equ 


LEARNEE GRP+11 


■ 

9 


radio 


00 code window 


TOJDFLOW 


. equ 


LEARNEE GRP+12 




; Third byte of TO counter 


TOE XT 


. equ 


LEARNEE GRP+13 


m 

t 


tO extend dec'd every TO int 


toe::tword 


. equ 


LEARNEE GRF+12 






r Word-wide TO extension 


T125MS 




. equ 


LEARNEE_GRP+14 






; 125mS counter 


SKIPRADIO 




. equ 


LEARNEE_GRP+1 5 






; flag to skip radio read, write if 
; learn or vacation talking tc it 


teinph 


. equ 


rO 




. 

/ 






ter.pl 


. e q — 


y " 




/ 






lea r nob 












; learr. debouncer 


learnt 




.equ 


r4 






; learn timer 


erase: 




. equ 


rS 






; erase timer 


mtemph 




. equ 


r€ 






; memory temp 
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m L cinp x 






r7 


; memory temp 


Tut eiup 




rft 




; memo r y t emp 


eori a 1 
OCX X Q X 


• w u ' 


r9 




; data to and from nonvol mem 


address 


. equ 


rlO 


; addr for serial nonvol memory 


zzwin 


. equ 


rll 






tO_of low 




.equ 


rl2 


; Overflow counter for TO 


tOext 


. equ 


rl3 




; tO extend dec'd every TO int 


tOextword 






rr!2 


; Word-wide TO extension 


1 125T.* 




. equ 


rl4 


; 125mS counter 


skipradio 




. equ 


rl5 


; flag to skip radio read, write 










; learn or vacation talking to i 


FORCF GROUP 




• CwU 


4 OH 




i»"J T~i f Ar f"D 




• C VJ u 


rO 

X w 




^ \ t~> f Avro 




i u 


rl 




J. (J<->J->x fc? U 




• u 


r3 




nn f nrro -i 
Li^J xvJJ-U-cr i i J. 


< w VJ w 








nt~i f attp To 

•X p 1U1 X w 


pnn 

• ^4 


r5 










# ^ 


T" r* 4 




rin f orcp hi ■> 


. ecu 


r6 






d^j force lo 


. eou 


r7 






Ui;'^£ w — w tr 




• vk* 


r ^ f 

X x, L 




■f o-tT?* ^ a ri ri hi 


en' - 

• w « 


r8 * 






f o£?£e_add_lo 


. equ 


r9 






for~ee add 
» " 




. equ 


rr 8 




up. eiii^ 




. c u u 


X J. w 








• ^? i-t 


Y" "| 
A. j. X 




JJvJbt?— LUUIJ i_ 




* c U w 


r 1 2 

X X i- 




— * — 


• V- w 


J± w 






x Qx -C e u eiup n l 


Ann 


X j. *s 










r 1 5 

X. X v ' 










• t ^ L. 


4 r i r 








o rr i ' 


4 1 H 










A 7 P 




jjojapneg 






•» j 




Ti « imp rr w t 


• tr 


*1 *3 X* 








. 4 >-* 


1 Ji. 






DlfiFORCE k: 


. equ 


4 6K 






DhTTORCE_LO 


. equ 


4"H 






UP_TEMF 




. equ 


4 AH 




DN TEKF 




. equ 


45H 




POT COUNT 




. equ 


4CH 




FORCE_TEKF_OF 


. equ 


4CK 










• ^ Vrf u> 


4EH 








• ^ 


4 




RPM_GROUP 




. equ 


50H 




rtypes2 




. equ 


rO 




stackf lag 




. ecu 


r 1 




rpirt_t emp_of 




. equ 


r2 




rpm_temp_hi 


. equ 


r3 






rpm_t mp_hiword 


. equ 


rr2 




rpm_temp_lo 


. equ 


r4 






rpm_past_hi 


. equ 


r5 






rpm_past_lo 


. equ 


r6 






rpr _pe r i c d_h i 




. equ 






rpr._pe r i oc 1 c 




. equ 


re 




divcounter 




. eau 


rll 


; Counter for dividing RPK time 


r prr. c c L>r. _ 




. equ 


— — t. 








r 1 3 






BT^es2 




. equ 


■ R ?!\ G R 0*J r * C- 




STACKFLAG 




. equ 


R?M~GR0U?^1 
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RPM_TEMP_ 
RPM_TEMP_ 
RPMJTEMP_ 
RPM_TEMP_LO 
RPM_PAST_HI 
RPM_PAST_LO 
RPM_PERIOD_HI 
RPM_PERIOD_LO 
DN_LIMIT_HI 
DN_LIMIT_LO 
DIVCOUNTEP. 
RPM_FILTER 
RPM_COUNT 
RPM_TIME_OUT 
BLINK_HI 
BLINK_LG 
BLINK 



OF 

HI .equ 
HWORD 

.equ 
. qu 
. equ 



eau 



. equ RPM 

RPM_GROUP^" 

. equ RPM_ 

RPM_GROUP+ 

RPM_GROUF+ 

RPM_GROUP+ 

.equ RPM 



equ 
equ 
equ 
equ 
equ 
equ 



RPM 
RPM' 
RPM^ 

rpm' 

RPM 
RPK 



RPMJ3R0UP+ 
.equ RPM 
. equ RPM 
. equ RPM 



GROU 
3 

_GROU 
4 

5 
6 

_GROU 
GROU 

~GROU 
GROU 

"GRO'J 

"grou 

GROU 
13 

_GROU 
GROU 

"grou 



P+2 
P+2 



P+7 

P+8 

P+S 

P+10 

F^ll 

P*I1 

P+12 

P-14 

P-r 15 

P+14 



; Overflow for RPM Time 
; High word of RPM Time 



Counter for dividing RPM time 

DOUBLE MAPPED register for filtering signa 



Blink timer for flashing the 
about-to-travel warning light 
Word-wise blink timer 



RADIO GROUP 







* * t T t * * 




* * 




-*+*■» + * 


*★* + *★ + *■ + ** + ★**★*** 


RadioGr cue 


. equ 


6 G n 






• 






RTjifnp 




. e qu 


RadioGr oup 






t 


radio temp storage 


RT?gmpH 


. equ 


RadioGroup- 1 -! 




; radio 


temp storage high 


RlfempL 


. equ 


Radi oG 


roup- 1 - 2 




; radio 


temp storage low 


RTrjpneAH 




. eau 


RadioGr cup+ 




• 


radio 


active time high byte 


RljijneAL 




. equ 


RadioGrouc- 1 - 4 


+ 


radio 


active time low byte 


Rlfi-melH 




. equ 


RadioGrcup- 1 - 


c 


* 


radio 


inactive time high byte 


RTimelL 




. equ 


RadioGroup* 


€ 




radio 


inactive time low byte 


RafeolK 




. equ 


RadioGr cup - 


7 


* 


sync 


1 code storage 


Radiol L 




. equ 


RadioGroup-*- 


e 




sync 


1 code storage 


Ra:dioC 


. equ 


RadioG 


roup* 9 




; radio 


word count 


PoJtnterK 




. equ 


Radi oGr oup - 




* 






Pointer L 




. equ 


RadioGroup- 1 - 


2. 1 


. 






AdfefValueH 




. equ 


RadioGroup+ 


<-% 
j.^ 


r 






A&ValueL 




. equ 


RadioGr oup-" 


13 


. 
1 






Rf|io3H 




. equ 


RadioGr cup-?- 


14 


m 

t 


sync 


3 code storage 


Ra^dic :L 




.equ 






t 


sync 


3 code storage 


rgrrr 




. eau 


rC 








• radio temp storage 


r fe^mph 


. equ 








r 


radio 


temp storage high 


r tempi 


. ecu 


r 2 






« 
t 


radio 


temp storage low 


rt imeah 




• e a _ 










■ radio active time high byte 


r t ime a 1 




. equ 


r4 








■ radio active' time low byte 


rtimeih 




. eau 


r5 








■ radio inactive time high byte 


rt inei I 




. equ 


r t 








■ radio inactive time low byte 


radiolh 




. equ 


r~ 








r sync 1 code storage 


radioll 




. equ 


zb 








- sync 1 code storage 


radioc 


. equ 


r9 * 






• 
f 


radio 


word count 


point erh 




. equ 


rlC 










pointerl 




. equ 


rll 










pointer 




. equ 


rr i G 








; Overall pointer for ROM 


addvalueh 




. equ 


r!2 










addvaluel 




. equ 


r 1 3 










radio3h 




. equ 


rI4 








? sync 3 code storage 


radio3I 




. equ 


rl5 








; sync 3 code storage 


w2 




. equ 


rr!4 








r For Siminor revision 



Counter Group 
Test Reg 
BitMask 
LastKatch 
LccpCcur.t 
Counter A 
Counters 
Count erC 



.ecu CP Oh 

.equ Count erGr our. 

.equ CcunterGrcup+OI 

e*-* \ ^ ' ^ * C- ^ ^ v O 1 1 ^* * / 

.equ Counter Group* C 3 

.equ CounterGroup+04 

.equ Count er Group - C 5 

.eau Count e rGrouo* G 6 



counter group 

Test area when dividing 

Mask for transmitters 
last matching code address 
iocp counter 
counter translation MSB 
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CounterD 
MirrorA 
MirrorB 
MirrorC 
MirrorD 
COUNT 1H 
COUNT 1L 
COUNT 3 H 
COUNT 3 L 



equ CounterGroup+07 

equ CounterGroup+08 

equ CounterGroup+09 

equ CounterGroup+010 

equ CounterGroup+01 1 

equ CounterGroup+012 

equ CounterGroup+01 3 

equ CounterGroup+014 

equ CounterGroup+01 5 



counter translation LSB 
back translation MSB 



back translation LSB 
rec iv d count 



loopccunt 

counters 

counterb 

counterc 

counterd 

mirrora 

mirrorb 

mirrorc 

mirrord 



equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 



r3 

r4 

r5 

r6 

r7 

r8 

r9 

rlO 

rll 



Radio2Group 



equ 



080K 



PREVFIX 
PRS^TK? 

RofeiBi? 

RTaStteDH 

FTflSheDL 
RTrimePK 
RTameFL 

icrl 

raSIobit 

Rafda. oT ime Ou t 
RadioMode 
Bitjhresh 
SygpThresh 

Rfljag 



equ 



pr^vfix 
pr^eVtirp 

r Caii?l t i. i. 

id_b 

radicbi t 
radictir.eou 1 
radiomcde 
rf lac 



equ 



. equ 
. equ 
. equ 
. equ 
. equ 
. equ 
. equ 
. equ 
. equ 
. equ 
Radio 
.equ 
. equ 
. equ 
. equ 
. equ 

. equ 
. equ 
. equ 
. equ 
• e q — 
. equ 
rIC 
. equ 
. eau 



Radio2 
Radi c2 
Radic2 
Radio2 
Ra6ic2 
Radic2 
Radio2 
Radio2 
Radio2 
Radi o2 
2Group -* 
Rcdio2 
Radio2 
Radio2 
Radio2 
Radic2 



Group 

\j: ZT w- »1 p 

Group 

Group 

Group 

Group. 

Group 

Group 

Group 

Group 

- 1 0 

Group 

Group 

Group 

Group 

Group 



x. V- 



r z 



r v 

rll 
r!5 



+ 
+ 

+ 

4- 
+ 



2 
3 
A 
5 
6 
7 



+ 8 
+ S 

- 11 
+ 12 
+ 13 
+ 14 
+ 15 



; Fixed or rolling mode 

;Bit decision threshold 

; Sync pulse decision threshold 

; Maximum number of bits 

;Radio flags 



OrginalGroup 
SW_DATA 
0NEP2 
LAST CMD 



CodeFlag 



. equ 



RPMOKES 
R PMC LEA?. 



9 OH 
. equ 

• equ 

• equ 



ecu 
equ 



Org inalG roup* 0 
OrginalGroup+1 
OrginalGroup+2 



equ OrginalGroup+3 



\JZ Z ITjc-or cup-*- H 

CrainalGrcuc-^S 



1.2 SEC TIMER TICK .125 

LAST COMMAND FROM 

=55 WALL CONTROL 

- 00 RADIO 

Radio code type flag 

FF = Learning open/close/stop 

77 = b code 

AA = open/close/stop code 

55 - Light control transmitter 

00 = Command or unknown 
RPM Pulse One Sec. Disable 
RPM PULSE CLEAR & TEST TIMER 
RPK FORCED AREY FLAG 
86H FOR A FORCED REVERSE 



FLA SK_ FLAG 
FLASH DELAY 



. ecu 



.ecu OrcinalGr cup+7 
CroinalGrcuo- 6 
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REASON .equ 


OrginalGroup+5 




FLASH_COUNTER 


. equ 


OrginalGroup+10 


• 


RadioTypes 


. equ 


OrginalGroup+11 


; Types for one page of tx's 


LIGHT FLAG 


. equ 


OrginalGroup+12 




CMD_DEB 


. equ 


OrginalGroup+13 




LIGHT DEB 


. equ 


OrginalGroup+14 




VAC_DEB 


. equ 


OrginalGroup+15 




NextGroup 


. equ 


OAOH 




SDISABLE 


. equ 


NextGroup+O 


r system disable timer 


PRADI03H 


. equ 


NextGroup+1 


; 3 mS code storage high byte 


PRADI03L 


. equ 


NextGroup+2 


r 3 mS code storage low byte 


PRADI01H 


. equ 


NextGroup+3 , 


r 1 mS code storage high byte 


PRADIOIL 


. equ 


NextGroup+4 , 


r 1 mS code storage low byte 


RTO 


. equ 


NextGroup+5 t 


f radio time out 


;RFlag 


.equ 


NextGroup+6 , 


; radio flags 


EnableWorkLight 


. equ 


NextGroup+€ 


- 4-22-97 work light function 


RINFILTEK 


. equ 


NextGroup^"? , 


; radio input filter 



LIGHT1S 




. equ 


NextGroup+8 , 


; light timer for Isecond flash 


DOG2 




* equ 


NextGroup* 9 ; 


■ second watchdog 


FAULT FLAG 




. equ 


NextGroup-*- 2 0 , 


: flag for fault blink, no rad. blink 


MOT DEL 




. equ 


KextGr oupt-1 1 ; 


r motor time delay 


P&1K7 DEE 




. equ 


NextGroup- 12 , 


- Pass Point debouncer 


DEfifcYC 




. equ 


NextGroup^I3 , 


• for the time delay for command 


L fPst C 




. equ 


NextGroup+14 


: Limits are changing register 






. equ 


NextGroup-*- 2 5 , 


; Counter compare result 


B&£KUP_GRP 




. eau 


OBOH 




pfeunterA 




. equ 


BACKUP GRF 




PCgsunterB 




. equ 


BACKUF_GRP+1 




PgjgunterC 




. equ 


BACKUP_GRF+2 




PCounterD 




. equ 


BACKUP_GRF-3 




hSurjtimer 




. equ 


BACKUP GRF-4 




Hb&R_TIMER_HI 


. equ 


BACKUP 


GRF+4 




H@R_TIMER__LO 


. equ 


BACKUP^ 


~GRP+5 




Pass Counter 




. eau 


"BACKUP GRP^6 




SS&CKREASON 




. equ 


BACKUF GRP+7 




F%istRun 




. equ 


BACKU?_GRP^6 


Flag for first operation after power 


M£r,Speed 




. equ 


BACKUP GRF-9- 




3RJ>M_C0UNT 




. equ 


BACKUF GR?*I0 




BRPMJTIME OUT 




. equ 


BACKUP_GR?-:i 




BFORCE_IGNORE 




. e qu 


BACKUP GRr-12 




BAUTO_DELAY 




BACKUP 


J3Rr-rl2 




BCMD_DEB 




.equ 


*BACKUFJ3RF-14 




BSTATE 




. equ 


BACKUF_GRr~15 





; Double-mapped registers for M68GC test 

COUNT_HI .equ BRPM_COUN7 

COUNT_LO .equ 
COUNT .equ 
REGTEMP . equ 

REGTEMF2 .equ 



BRPM_TIME_OUT 
BFORCE_ IGNORE 
B AU T 0_ DE LAY 
BCKI DEB 



Double-mapped registers for Siminor Code Reception 



CodeTO 
CodeTl 
CodeT2 
CodeT3 
CodeT4 
CodeT6 



. equ 
. equ 
. equ 
. equ 
. equ 
. eau 



COUNT 1L 
RadiolL 
MirrorC 
MirrorD 
C0UNT3H 
COUNT 31 



; Binary radio code received 



Ix 



.equ COUNT I H 



; Index per Siminor' s code 



WlHigh 
WILow 
wlhich 
wllow 



equ AddValueH 

.equ AddValueL 
equ addvalueh 

.equ addvaluel 



; Word 1 per Siminor' s code 
; description 
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W2High 


. qu 


Radio3H 


W2Low 




. equ 


Radio3L 


w2high 


. equ 


radio3h 


w21ow 




. equ 


radic31 


STACKTOP 




. equ 


238 


STACKEND 




. equ 


OCOK 


r\ »j> «j c. a t 




eau 


PO 






. equ 


SWITCKESl 








10000000E 


csl 




* C N-i 


~ CSh 


clockh 




. eQu 


01000000B 


r* 1 of* k 1 

*v JL w w /* ^ 




. equ 


-clockh 


UUiJ 




. equ 


00100000E 


dol 




. equ 


-doh 


ledh 




• C ^ w 


0000001 05 


ledl 




. equ 


-ledh 


psmask 




• C V-^ u 


01000000B 






. equ 


P2 


d i onor t 




. equ 


P2 






• ^ ^rf »-* 


P2 


1 Sport 




. equ 


P2 


psjjort 




. equ 


P2 










WAMCHD0G_ 


_GROUP 


. equ 


0FK 


pis?n 




. equ 


rO 






. equ 


rll 


wcfc&Tnr 




. equ 


r25 




F TwcThi 


rtyTh 


ree 



Word 2 per Siminor's code 
; description 



; start of the stack 
; end of the stack 

; RS232 input port 
; RS232 mask 

chip select high for the 93c 
chip select low for 93c46 
clock high for 93c46 
clock low for 93c46 
data out high for 93c4 6 
data out low for 93c4 6 
turn the led pin high "off 
turn the led pin low "on 

mask for the program switch 
chip select port 
data i/o port 
clock port 
led port 

program switch port 



SET 9 



.macro 
.byte Sfh 
. en dm 

. ELSE 

. ma c r c 

xcr FI, #0 
. en dm 

.ENDIF 



■j 0 C'lr 



Kick external watchdog 



FILL .macro 

.byte OFFh 
. encirr. 

FILL10 .macro 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
. er.±t 



r i 

FILL10 
FILL20 
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FILL10 
FILLIO 
FILLIO 
FILLIO 
FILLIO 
FILLIO 
. en dm 

FILLIOOO .macro 
FILL100 
FILLIOC 
FILL100 
FILLIOO 
FILL100 
FILLIOO 
FILLIOO 
FILLIOO 
FILLIOO 
FILLIOC 
. endm 



TRAP 



TR^riO 



'.macro 

jP 
3F 
DP 
3P 
jP 

. endm 

.macro 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

. en am 



start 
start 
start 
start 
start 



S et R pToRadic2Group 
.byte 031K 
.byte 0 6 OH 



macrc 



. en ami 



;* Interrupt Vector Table 



.org 0000H 

.IF TwcThirtyThree 

.word RADIO_INT ;IRQ0- 

.word 000CH ;IRQlf 

.word RPK ;IRQ2, P3 . 1 

.word AUX OBS ;IRQ3, P3.0 



\* *r r* 

.were 



m r 



T'Tj^rcT*r ; IRQ*' / 



.word RADIO INT ;IRQ0 

.were RADIO_INT ;IRQI, P3 . 3 

. word RPK ; IR Q 2 * p3 * 1 



word AUX_OBS 
word TIMERUD 
word 000CH 

ENDIF 



;IRQ3, P3.0 
;IRQ4, TO 
;IRQ5, Tl 



.page 
. org 

jP 



OOOCH 
START 



;jmps to start at location 0101, 0202 etc 



RS2 32 DATA ROUTINES 

RS_COUNTER REGISTER 
0000XXXX ■ 



OOXXOOOO 
00XX0001 
00XX1111 

1000XXXX 
1XXX0OO0 
1XXX00C1 
1XXXI111 



- 0011XXXX Input byte counter (inputting bytes 1-4) 

Waiting for a start bit 

- XXXX1001 Input bit counter (Bits 1-9, including stop) 

Idle — whole byte received 

- 1111XXXX Output byte counter (outputting bytes 1-8) 

Tell the routine to output a byte 

- lXXXIOC; Outputting a byte (Bits 1-9, including stop) 

Idle whole byte output 



OufeputKode : 



5 5 2 


RS_COUNTER, 4*0 00 


M- jr 


z, Output Star t 


r =. t err. 


RS_COUNTER, #00 0 


*1 T 

J s - 

'il 


7 , Output St ov 


O'HputData : 




I SCf 


RS232DAT 


JJ J; 


c, OutputHigh 


0^ put Low : 




and 


p 3 , * - CKAr ~ E _ S V» 


cr 


F3 , #2:s_sv: 


j- 


DataBitDcne 


Output Star t : 




Id 


Tl , #Rs?erFuli 


Id 


TMR, #00001110E 


and 
or 


p3 f #-CKARGE_SW 

F3, #dis_svc 


ir.z 


RS COUNTER 


iret 




OutputHigh : 




and 
or 


P 3, #-DIS SW 
P3, #CHARGE_SW 


DataBitDcne : 




in: 


t- c r: 


iret 








and 


p?, #-DIS_SW 


or 


*P3, #CHARGE_SK 



; Check for outputting start bit 



; Check for outputting stop bit 
; (bit 9), if so, don 1 1 increment 



; Set carry to ensure high stop b; 
; Test the bit for output 



Turn off the pull-up- 
Turn on the pull-down 



; Set the timer to a full bit period 
Load the full time period 
Send a start bit 

Set the counter to first bit 



; Turn off the pull-down 

; Turn on the pull-up 



; Advance to the next data fci' 



; Output a stop (high^ bit 

r 
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or 
cp 

jr 
clr 

MoreOutput : 

RSExit : 

iret 



RS_COUNTER, #00001 11 IB 
RS_COUNTER , #11111111B 
nz, MoreOutput 
RS COUNTER 



Set the flag for word being done 
T st for last output byte 
If not, wait for more output 
Start waiting for input bytes 



RS232 : 

cp 
jr 
cp 

• 

3* 

InRsMode : 

tor. 
3 r 

tm 



tm 

tcm 

scf 

tlTi 



rcf 
Goi£RsBit : 

jj J 

rrc 
I inc 
i re 



S3 



RsMode, #00 
nz, InRsMode 
STATUS, # CHARGE 
nz, WallModeBad 



RS_COUNTER, #00001 11 IE 
z, RSExit 

RS_COUNTER, #110000005 
nz, OutputMode 



RS_COUNTER, #00001111B 
2, WaitForStart 

RS_COUNTER, #000010015 
Z, StopBit 



RS232IP, #RS232IM 
nz, GotRsr i t 



RS232DAT 
RS COUNTER 



; Check for in RS232 mode, 
If so, keep receiving data 

; Else, only receive data when 
; charging the wall contol 



; Test for idle state 

; If so, don't do anything 

; test for input or output mode 



; Check for waiting for start 

; If so, test for start bit 

; Test for receiving the stop bit 

; If so, end the word 

1 ; Initially set the data in bit 

; Check for high or low bit at inpi 
; If high, leave carry high 

; Input bit was low 



; Shift the bit into the byte 
; Advance tc the next bit 



StopEit : 

tm 

j- 

DataGood : 
tm 



IsData : 



Id 
or 

iret 



RS232IF, #RS232IK 
z, DataBad 



RS_COUNTER , #1111000 0B 

nz , IsData 

RS COMMAND, RS232DAT 

RS COUNTER, #000011115 



; Test for a valid stop bit 

; If invalid, throw out the word 



; If we're not reading the first word, 
; then this is not a command 
; Load the new command word 

; Indicate idle at end of word 



WallModeBad: 



cir 



RS COUNTER 



; Reset the RS232 state 



DataBad : 



ana 

ire' 



RS COUNTER, #001100005 



; Clear the byte counter 



WaitForStart : 



tm 



RS232IP, #RS232ir 



; Check for a start bit 
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inc 
Id 
Id 
Id 

iret 
NoStartBit : 




nz, NoStartBit 

RS_COUNTER 
Tl, #RsPerlP22 
TMR, #00001110B 
Tl, #RsPerFull 



; If high, keep waiting 



Set to receive bit 1 

Long time until next sample 

Load the timer 

Sample at IX afterwards 



Id Tl, #RsPerHslf 

iret 



; Sample at 2X for start bit 



Set the worklight timer to 4.5 minutes for 60Hz line 
and 2.5 minutes for 50 Hz line 



SetVarLight : 
cp 

USALight : 
Id 
Id 

Eurp Light : 

Si ld 
y * id 

if! ret 



LinePer, #36 ; 
uge, EuroLight 

LIGHT_TIMER_HI, # T JSA_LIGHT_KI 
LIGHT TIMER LC, #USA LIGHT LO 



LIGHT_TIMER_HI , #EURO_LIGHT_HI 
LIGHT TIMER LO, #EURC LIGHT LO 



Test for 50Hz or 60Hz 

; Load the proper table 



set the light period 
Return 

set the light period 
Return 



• ■? 

9 „ r 


THIS 


THE AUXILARY OBSTRUCTION 


INTERRUPT ROUTINE 




W - 


OBS : 




; reset pulse counter (no obstruct 






Id 


OBS COUNT, #11 


ion ; 




and 


imr, #11110111b 


; turn off the interupt for up to 


500uS 




Id 


AOBSTEST, #11 


; reset the test timer 




ft I 


or 


AOBSF, #000000108 


; set the flag for got a aobs 






and 


AOBSF, #11011111B 


; Clear the bad aobs flag 




* s 


iret 




; return from int 






Test 


for the presence cf a bl: 


.r.ker module 





LookForFiasher : 

and P2M_SHAD0W, #~ELINK_FI! 
P2K, P2M_SHADCW 
F2, #ELINK_FI!: 
P2M_SHADOW t #5LINK_FIN 
P2M, P2K SHADOW 



Id 
or 
or 
Id 
re' 



;Set high for autoiatch test 



Look for Flasher module 



; Fill 41 bytes cf unused memory 

FILL10 
FILL 10 
FILL10 
FILL10 
FILL 



; REGISTER INITILI 2ATI 0! 



o: :<::-: 



start : 
START: di 



. IF 



TwoThi rt yT hree 



; address has both bytes the sar.e 
; turn off the interrupt for init 
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* 

( 



J 



Id 
Id 



RP, #WATCHDOG_GROUP 
wdtmr, #00001111B 



; rc dog lOOmS 



. ELSE 



clr 



PI 



. ENDIF 



WDT 
clr 



RP 



; kick the dog 

; clear the register pointer 



********************+*****+****+********************* 



PORT INITILIZATION 



Id 


P0,#P01S INIT 


Id 


P2,#F2S POR 


Id 


P3,#P3S INIT 


Id 


P01K, #P01M_INIT 


Id 

Q ■ 


P3M, #P3K_INIT 


rJJ Id 


P2K, #F2K_POR 



RESET all ports 

Output the chip ID code 

; set mode p00-p03 out p04-p07in 
; set port3 p30-p33 input analog mode 
; p34-p37 outputs 
set port 2 mode for chip ID out 



* Internal RAM Test and Reset All RAM = mS * 

* *yyi + + + + + + + + + + + + + + * + + + + + + + + + + + + + + + + + + + + + + + 



£££££ 



srp 
Id 



#0F0h 
rl5, #4 





WDT 




f-t 


Id 


rl4,*l 


i?C%_ 


againl 


* 




' Id 


6rl5, rl4 




cp 


rl4, @rl5 




jr 


ne, system error 




rl 


rl4 






nc, write agair. 1 




clr 


@rI5 




inc 


rl5 




cp 


r!5, #24C 




j- 


ul t , write_6Ccir. 



; point to control group use stack 
;rl5= pointer (minimum of RAM) 

; KICK THE DOG 



;write 1,2,4,8,10,20,40,80 
; then compare 



; write RAM{r5)-0 to memory 



Checksum Test 



CHECKSUMTEST: 
srp 
Id 
Id 

add_sum: 

WDT 

ldc 

add 

decw 

jr 

CO 

j r 

system_error : 

S r> 

i r 



#CHECK_GR? 
test_adr_hi, #01FH 
test adr lo,#0FFH 



roir._data, @test_adr 
check_sum, rom_data 
test_adr 
nz, add_sum 

check_suzr., *check_s' 
z , system_ok 

■ledpc-rt , #ledl 
svstem error 



/maximum address=fffh 

; KICK THE DOG 
; read ROM code one by one 
;add it to checksum register 
; increment ROM address 
;address=0 ? 

; check final checksum: = 00 ? 

; turn on the LED to indicate fault 



.byte 256-check_su.T_value 
system_ok : 
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WDT 



; kick th dog 



Id STACKEND, #STACKTOP 

SETSTACKLOOP: 

Id SSTACKEND,#01H 
dec STACKEND 
cp STACKEND, # STACKEND 

j r nz , SETSTACKLOOP 



; start at th top of the stack 

; set the value for the stack vector 
; next address 
; test for the last address 
; loop till done 



CLEARDONE : 





Id 


STATE, #06 








* 
* 


set the state to stop 




Id 


BSTATE, #06 








» 

r 






Id 


One Pass, STATE 




* 


Set 


the one-shot 




Id 


STATUS, # CHARGE 








• 


set start to charge 




Id 


SWITCH DELAY, #CMD DEL EX 


* 


set 


the delay time to cmd 




Id 


LIGHT TIMER_HI, #USA_ 


LIGHT 


HI 




■ 


set the light period 




Id 


LIGHT TIMER_LO, #USA_ 


LIGHT 


_LO 




* 


for the 4.5 min timer 




Id 


RPMONES, #24 4 






set 


the hold off 




srp 


# LEARN EE GR? 














Id 


learndb, #0FFH 






set 


the learn debouncer 


u 


Id 


zzwin, learndb 






turn 


off the learning 


* /-> 


CMI-_DEE, learndb 










in case of shorted switches 




Id 

Id . 


BCMD DEB, learndb 
VAC DEB, learndb 










in case of shorted switches 




Id 


LIGHT DEE, learndb 




* 
f 










Id 


ERASET, learndb 








* 

9 


set the erase timer 




Id 


learnt, learndb 








m 
f 


set the learn timer 




Id 


RTO, learndb 








# 


set the radio time out 




Id 


AUX LEARN SW , learndb 




• 
9 


turn 


off the aux learn switch 




Id 


RRTO, learndb 




* 
9 


set 


the radio timer 



; S3ACK INITILIZATION 

. **-#* ******** * * * *************************************************** ****** 

IU clr 254 

£3 Id 255, #238 ; set the start of the stack 

g .IF TwcThirtyThree 

* £* S £ 

w Clr PI 
. ENDIF 



TIMER INITILIZATION 



Id PREO, #000001C1B 

Id PRE1, #000100115 

clr TO 

Id Tl, #RsPerHalf 

Id TMR,#00001111B 



; set the prescaler to /l for 4MHz 
; set the prescaler tc /4 for 4MKz 
; set the counter to count FF through 0 
set the period to rs232 period for start bit sample 
; turn on the timers 



; PORT INITILIZATION 



Id 
Id 
Id 

Id 



lc 



P0,#P01S_INIT 
P2, #F2S_INIT 
P3, #P3S_INIT 
P01M, #P01K_INTT 
F3K, #F2M_IN:r 

P2M_SKAOOW, #?2K_:KI7 



RESET all ports 

set mode p00-p03 out p04-p0*Un 
set port3 p30-p33 input analcc mode 
p34-p3*? outputs 
Shadow P2M for read 
set port 2 mode 



C »- — ^ — J 



.IF TwcThirtyThree 
. ELSE 
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clr PI 
. ENDIF 



; READ THE MEMORY 2X AND GET THE VAC FLAG 



Id 
Id 

call 
call 
Id 



SKIPRADIO, #NOEECOMM 
ADDRESS , #VACATIONADDR 
READMEMOF.Y 
READMEMORY 
VACFLAG, MTEMPH 



set non vol address to the VAC flag 
read the value 2X IX INIT 2ND read 
read the value 
save into volital 



WakeUpLimits : 
Id 

call 
Id 
Id 
Id 

call 
Id 

*M W DT 



ADDRESS , #UPLIMADDR 
READMEMORY 
UP_LIMIT_HI , MTEMPH 
UP_LIMIT_LO, MTEMPL 
ADDRESS, #DNLIMADDR 
READMEMORY 
DN_LIMIT_HI , MTEMPH 
DN LIMIT LC, MTEMPL 



; Read the up and down limits into memory 



; Kick the dog 



WakfPpState : 
Id 



= 3 



3 

sa&i 



call 
Id 
Id 
cp 

cp 



WaKgUpLos 
Id 
Id 
Id 



ADDRESS, #LASTSTATEADDR 
READMEMORY 
STATE, MTEMPL 
PassCounter, MTEMPH 
STATE, #UP_POSITION 
z, WakeUpLimit 
STATE , ¥ DN_FOS I T I OK 
z, WakeOnLimit 



STATE, #STOF 
POSITION_KI, #0~F: 
POSITIOK_LC, #060- 
GotWakeVr- 



; Read the previous operating state into memory 

¥ 

; Load the state 

; Load the pass point counter 

; If at up limit, set position 

; If at down limit, set position 



Set state as stopped in mid travel 
Set position as lost 



"KakeUpLir.it 
1c 
Id 



positiok_h: , 
positiok_lc, 

GotWakeUc 



Ur LIMIT LO 



; Set position as at the up lim. 



"WakeDnLimit 
Id 
Id 



POSITION_HI, 
POSITION LO, 



DN_LIMT 
DN LIMI 



LC 



; Set position as at the down limit 



GotWakeUp 

Id 
Id 



BSTATE, STATE 
OnePass, STATE 



; Back up the state and 

; clear the one-shot 



SET ROLLING /FIXED MODE FROM NON -VOLATILE MEMORY 



************ 



call SetRadioMode 



D r 



SET I NTE P.P. '-■ ?TS 



Set the radio mode 

Continue on 



SetRadioMode : 



Id 



SKIPRADIO, # K CE E C OMM 



Id ADDRESS, #MODEADDR 

call READMEMOF.Y 

Id RadioMode, MTEMPL 



; Set skip radio flag 
Point to the radio mode flag 
; Read the radio mode 
; Set the proper radio mode 
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clr SKIPRADIO 

tm RadioMode, #ROLL_MASK 

jr nz, StartRoll 




; Re-enable the radio 

; Do we want, rolling numbers 



call 
ret 



FixedNums 



StartRoll : 



call RollNums 

ret ■ 



* 

; INITERRUPT INITILIZATION 



SETINTERRUPTS : 

Id IPR, #000110105 

Id IMR, #ALL ON I MR 



; set the priority to timer 
; turn on the interrupt 



0 



.IF TwoThirtyThree 
Id IRQ, #010000005 

. ELSE 

Id IRQ, #00000000c 

. END I F 

ei 



; set the edge clear int 
; Set the edge, clear ints 



; enable interrupt 



; WESE 1 
• * * * 



SYSTEM REG 
************* 



* + + * + *■***•»■•»* 



.IF 



TwcThi rt yThree 



i 



Id RP, #WA7CHD0S_GR0U: 

Id smr, #001000I0B 

Id peon, #011111105 

clr RF 



reset the xtal / number 

reset the peon no comparator output 

no low emi mode 

Reset the RP 



w 



.ENDIF 



PRE 0 , # C" 0 0 Z- u j. v 1 5 



; set the prescaler to / 1 for 4K: 
; Kick the dog 



; MAIN LOOP 

• ^ W w W W "W w W ♦ W w w w W w w ^ w w w w » w ^ w ™ w ^ ~w ~w w w w 

KAINLOOF : 

cp PrevPass, PassCounter ; Compare pass point counter to backup 

jr z, FassPcintCurrent ;If equal, EE PROM is up to date 

PassPoint Changed : 



Id 


SKIPRADIO, #NOEECOMM ; 


? Disable radio EEPROM communications 


Id 


ADDRESS, # LASTSTATEADDR 


■ Point to the pass point storage 


call 


README M OR Y J 


? Get the current GDO state 


di 




; Lock in the pass point state 


Id 


MTEMPH, PassCounter ; Store 


the current pass point state 


Id 


FrevPass, Fa ss Counter « 


; Clear the one-shct 


ei 

\Z C -L 


WRITEMEMORY 


; Write it back to the EEFROK 


clr 


SKIPRADIC 





FassPcintCurrent : 

* 

9 

; 4-22-5- 
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CP 

JR 
TM 
JR 
LD 
LD 
JR 

GetRidOflt : 
LD 
LD 

Comma tToMem 
LD 
LD 

CALL 
CLR 
XOR 
LD 



EnableWorkLight , #10000000B ;is the debouncer set? if so write and 

;give feedback 

NE, LightOpen 
pO, #LIGHT_ON 
NZ, GetRidOflt 

MTEMPL, #0FFH ;turn on the IR beam work light function 

MTEMPH, #0FFH 
Commit ToMem 



MTEMPL, #00H 
MTEMPH, # 00H 



; turn off the IR beam work light function 



;write to memory to store if enabled or not 
;set address for write 



SKIPRADIO, #NOEECOMK 
ADDRESS, #IRLIGHTADDR 
WRITEMEMORY 
SKIPRADIO 

pO, tWORKLIGHT ;toggle current state of work light for feedback 

EnableWorkLight, #01100000E 



LightOpen : 

cp light_timef._hi, #offh 

jr nz , TestBeamBreak 

Q tm pO,#LIGK7_ON 

■ z f\ jr nz, Light Skip 

Tes'tiBeamBreak : 

tm AOBSF, #10000000fc 

IjJ jr z,LightSkip 

7*' LD 



LD 

CALL 

CLR 

CP 

JR 



SKIPRADIO, #N0EECOKK 
ADDRESS, # IRLIGHTADDR 
READMEMOr.Y 
SKIPRADIO 
MTEMPL, #DISABLE; 
EQ, LightSkip 



; if light timer not done test beam break 
; if the light is off test beam break 



; Test for broken beam 
; if no pulses Staying blocked 

; else we are intermittent 

;Trun off radio interrupt to read from e2 



; don't forget to zero the one shot 
;Does e2 report that IR work light function 
;is disabled? IF so jump over light on and 



cp 
jr 

call 



~_ or 
LightSkip : 
; 4-22-S" 7 

AND 



STATE, #2 

nz, LightSkip 
SetVarlight 
pC, #LIGHT_OK 



AOBSF, #0111 Hi IB 



; test for the up limit 
; if net goto output the code 

; Set worklight to proper time 
; turn on the light 



; Clear the one shot , for IR beam 
; break detect. 



cp 
jr 
cp 
jr 



H0 T JR_7 IKER_H I , # 0 i CK 
ult, NoDecrement 
HOUR_TIMER_LC, #G20K 
ult, NoDecrement 



If an hour has passed, 
then decrement the 
temporary password timer 



c 1 r HOU R_7 1 ME R_K I 

clr HOUR_TIMER_LO 

Id SKIPRADIO, #NOEECOMX 

Id ADDRESS, #DURA7 

call READMEMORY 

cp MTEMPH, #HOURS 

jr nz, NoDecrement2 

cp MTEMPL, #0C 

jr z, NoDecrement2 



Reset hour timer 



Disable radio EE read 

Load the temporary password 

duration from non-volatile 

If not in timer mode, 

then don't update 

If timer is not done, 

decrement it 



ce: MTEKPL 
call WRITEMEMORY 



; Update the number of hours 



NoDe crement : 



tm 
jr 



AOBSF, #01000000c 
z, NoDecrement 2 



If the poll radio mode flag is 
set, poll the radio mode 
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call S tRadioMode 

and AOBSF, #10111111b 



; Set the radio mode 

; CI ar the flag 



NoDecrement2 : 



clr 

and 

clr 

Id 

Id 

or 

and 

Id 

cp 
jr 
cp 

jr 
Id 

jr 

MCLEARVAC : 
clr 

SKbVACCHANGE 
7l clr 
^ Id 
IJ1 lei 
Id 
Id 

call 
^ clr 
NG&ACCHG: 



. 2 s 



SKIPRADIO 
AOBSF, #00100011b 
DOG 2 

P01M,#P01K_INIT 
P3M, #P3M_INIT 

P2M_SHADOW, #P2M_ALLINS 
P2M_SHAD0W, #P2K_ALLOUTS 
P2M, P2M_SHADOW 
VACCHANGE , # OAAH 
nz,NOVACCHG 
VACFLAG, # OFFH 
2 , MCLEARVAC 
VACFLAG, # OFFH 
SETVACCHANGE 



VACFLA 



cp 



VACCHANGE 

SKIPRADIO, #NOEECOMM 
ADDRESS , #VACATIONADD: 
MTEMPH, VACFLAG 
MTEMPL, VACFLAG 
WRITEMEMORY 
SKIPRADIO 

STACKFLAG , # OFFH 
nz, N0CHANGES7 



; Re-enable radio reads 

; Clear the single break flag 

; clear the second watchdog 

; set mode p00-p03 out p04-p07in 

; set port3 p30-p33 input analog mode 

; p34-p37 outputs 

; Refresh all the P2M pins which have are 
; always the same when we get here 
; set port 2 mode 

; test for the vacation change flag 
; if no change the skip 

; test for in vacation 
; if in. vac clear 

; set vacation 
; set the change 

; clear vacation mode 

; one shot 

; set skip flag 

; set the non vol address to the VAC flag 

; store the vacation flag 

; write the value 

; clear skip flag 

; test for the change flag 
; if no change skip updating 



7*3 K 



cp 
i r 

CD 



L_A_C, # 0*7 OH 

uge, SkipReadLimits 

STATE , # U F_D I REC7 1 ON 
z, ReadUpLimi t 



; If we're in learn mode 

; then don't refresh the limits! 

; If we are going to travel up 
; then read the up limit 



cp 



STATE # # DN_DI REC7 1 OK 
2 , ReadDnLinit 



; If we are going tc travel down 
; then read the down limit 



SkipReadLimits 



; Nc limit on this travel. . . 



ReadUpLimi t 



Id 
Id 

call 
di 
Id 
Id 
clr 
add 
adc 
CalcMaxLoop 
inc 
add 
adc 



GctMa>:?roint 
ei 

* ■v 

tm 

jr 
cp 
jr 



SKIPRADIO, #NOEECOMK 
ADDRESS, #UPLIMADDR 
READMEMORY 

UF_LIKIT_KI, MTEKFH 
UP_LTMIT_LO, MTEMPL 
FirstRun 
MTEMPL, #10 
MTEMPH, #C0 

FirstRun 

MTEMPL, #LOW { PPOINTPULSES } 
MTEMPH, #HIGH (PPOINTPULSES) 
nc, CalcMaxLocp 



; Skip radio EE PROM reads 
Read the up liir.it 



Calculate the highest possible value for pass cour. 
Bias back by 1" tc provide margin of error 



Count pass 



points until value 



goes positive 



SKI FRAC I Z 

PassCounier, #01 00 0000c ; Test for a negative pass pcir.t counter 

z, CounterGoodl ; If not, no lower bounds check needed 

DN_LIMIT_KI, #HIGH (PPOINTPULSES - 35) ; If the down limit is low encugh, 
ugt, Counter I sNea I ; then the counter can be negative 
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ult, ClearCount 



DN_LIMIT_LO, #LOW (PPOINTPULSES - 35) 
uge, CounterlsNegl ; 



cp 

ClearCount : 

and PassCounter, #10000000b 

jr CounterGoodl 
CounterlsNeal : 

or PassCounter, #01111111b 

CounterGoodl : 

cp UP_LIMIT_HI, #0FFH 

jr nz, TestUpLirrdt2 

cp UP_LIMIT_LG, #0FFH 

jr 2, LimitlsBad 

jr LimitsAreDone 
TestUpLimit2 : 

cp UF_LIMI7_HI, #0D0K 

jr ule, LimitlsBad 

jr LimitsAreDone 



; Else, it should be z ro 



; Reset the pass point counter to zero 



; Set the pass point counter to -1 

; Test to make sure up limit is at a 
; a learned and legal value 



Look for up limit set to illegal value 
; If so, set the limit fault 



ReadDnLimit : 



-Lrj. . 



Id 
Id 

call 
di 
Id 
Id 
ei 
clr 
cp 
jr 
cp 
jr 

Test Down Dim: 
= ' cp 

Liifqpt IsBad : 

n ld 

dd call 
jr 



3 



• SKIPRADIO, #NCEECOMM 
ADDRESS , # DKLIMADDR 
READMEMORY ' 

DN_LIMIT_HI , MTEMPK 
DN_LIMIT_LC, MTEMFL 

SKIPRADIO 
DN_LIMIT_KI , #00H 
nz, TestDownLimit2 
DN_L IM I T_LO , #00 K 
2, LimitlsBad 
Limi ts Are Dene 
t2 : 

DN_LIMIT_HI, #020H 
ult, LimitsAreDone 

FAULTCODE, 

SET_STOP_STATE 

LimitsAreDone 



; Skip radio EE PROM reads 
Read the down limit 



; Test to make sure down limit is a 
; a learned and legal value 



; Look for down limit set to illegal value 
; If not, proceed as normal 

; Set the "no limits" fault 
; Stop the GDO 



SkipReadLim 
LimitsAreDo 



e : 



Id 
Id 

Cell 

Id 
ld 

call 
clr 



SKIPRADIO, #NOEECOMX 

ADDRE S S , # LAST ST AT EA DDR 

READMEMORY 

MTEMPK, PassCounter 

MTEMFL, STATE 

WRITEMEMORY 

SKIPRADIO 



Turn off the radio read 

Write the current state and pass cou: 



; DON'T update the pass point here 



ld 



One Pass, STATE 



; Clear the one-shot 



cp 
jr 



L_A_C , #077K 

nz, DontWriteLimits 



WriteNewLimits : 

cp STATE, #STOF 



Dr 

cp 

j r 

cr 
jr 

BackCf fYtl. 



nz, WriteUpLimit 
LIM_TEST_HI, #0C 

nz, WriteUpLiTr.it 
LIK_7EST_L0, rli 
ugt, Write'JpL iir.it 



L"r_LIM~7_LD, flc 
UP LIMIT HI, #00 



adc 

WriteUpLimi t : 

lc SKIPRADIO, #NOEECOMX 



; Test for successful learn cycle 
; If not, skip writing limits 



Test for (force) stop within 0.5" of 
the original up limit position 



Back off the up limit by 0.5 



Skip radio EE PROM reads 
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t 

Id ADDRESS, #UPLIMADDR ; Read the up limit 

di ; 

Id MTEMPH, UP_LIMIT_HI 

Id MTEMPL, UP_LIMIT_LO 

ei ; 

call WRITEMEMORY 
WriteDnLimi t : 

Id ADDRESS, #DNLIMADDR ; Read the up limit 

di 

Id MTEMPH, DN_LIMIT_HI 

Id MTEMPL, DN_LIMIT_LC 
ei 

call WRITEMEMORY 
WritePassCount : 

Id ADDRESS, #LASTSTATEADDR ; Write the current state and pass count 

Id MTEMPH, PassCounter ; Update the pass point 

Id MTEMPL, STATE 

call WRITEMEMORY 

clr SKIPRADIO 

clr LAC ; Leave the learn mode 

or ledport, #ledh ; turn off the LED for program mode 




DontWriteLimits : 





srp 


#LEARNEE GRP 


r 


set the register pointer 


3 s S 

ttr - 


clr 


STACK FLAG 




; clear the flag 


Id 


SKIPRADIO, #NOEECOMK 




; set skip flag 




Id 


address, #CYCCOUNT 




; set the non vol address to the 


5-3 


call 


READMEMORY 




; read the value 


s s_ 


inc 


mtempl 


• 


increase the counter lower byte 




jr 


nz , COUNTER 1 DONE 








inc 


mtemph 




; increase the counter high byte 




jr 


nz, COUNTER2DONE 








call 


WRITEMEMORY 


* 
i 


store the value 


KEEK 

n 


inc 


address . 




; get the next bytes 




call 


READMEMORY 




; read the data 




inc 


mtempl 


* 


increase the counter low byte 


fu 


jr 


nz, COUNTER2DONE 




* 


t ■ III Hi 


inc 


mtemph 


• 


increase the vounter high byte 


:S^NTER2DON£ 


* 






a*""; 


call 


WRITEMEMORY 


• 

9 


save the value 




Id 


address, #CYCCOUNT 




* 




call 


READMEMORY 




; read the data 



cycle c 



ana 

or 

Id 

Id 

la 

call 
jr 

COUNTER 1 DONE 
call 

CDONE : 

clr 



mtemph, #000 0I111E 
mtemph, * 3 OH 
ADDRESS, MTEMPH 
mtempl , DN FORCE 
mtemph, UP FORCE 
WRITEMEMORY 
CDONE 

WRITEMEMORY 
SKIPRADIO 



find the force address 



set the address 
read the forces 



; write the value 

; done set the back trace 

; got the new address 

; clear skip flag 



NOCHANGEST: 
call 
di 
cp 
jr 

RESET: 

3P 

TESTRPK: 

cri 
jr 
cp 

-i y 

j 

ei 



LEARN 

BRPM_COUNT , RPM_COUNT 
z , TESTRPM 

START 

BRPK_TIMI_C T J7 , R?:-:_TIME_OVT 
nz , RESET 

BFORCE_ IGNORE, FORCE_IGNORE 
nz , RESET 



; do the learn switch 
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; If we are at the end of a word, 
; then handle the RS232 word 



test for in range 
if out of range skip 
If we are reading 
go straight there 



If we are writing EE PROM 
go straight there 



(3**0*)) ; address pointer to table 

3*'0')) ; Offset for ASCII adjust 

; look up the jump 3x 

; look up the jump 3x 

; look up the jump 3x 

; call this address 

; done 



RSj£32 Jurr.pT 


able : 


™ ir. 


GotRsSO 




GotRs31 


DP 


GotRs32 


jP 


GolRs 3 3 


DP 


GotRs34 


jP 


GotRs35 


jP 


GotRs3€ 


jP 


GotRs3" 


jP 


GotRs38 


jP 


GotRs39 


jP 


GotRsoA 


jP 


GotRs3B 


jP 


GotRs3C 


jP 


GotRs3D 


jP 


GotRs3E 


jP 


GotRs3F 


jP 


GotRs40 


jP 


GotRs41 


jP 


GotRs42 


jP 


GotRs43 


jP 


GotRs4 4 


— 


GctRs 4 z 


DP 


GotRs4 c 


jP 


GotRs47 




Gc-Rs4E 


DP 


GctRs 4 r* 


jp 


GotRs4A 


DP 


GotRs4E 


jP 


GctRs4C 



di 
cp 
jr 
cp 

jr 
cp 
jr 
ei 

TESTRS232 : 
SRP 

tern 

DP 

cp 

jP 
cp 

jP 
cp 

jr 

call 



DP 



NotRs3C 



cp 

call 



Notfl0s3E : 
Id 

ui Id 



BAUTO_DELAY, AUTO_DELAY 
nz, RESET 

BCMD_DEB, CMD_DEB 
nz, RESET 
ESTATE, STATE 
nz , RESET 



#TIMER_GROUP 
RS_COUNTER, #0000 
nz, SKIPRS2 32 



rs command, # ' V ' 
ugt, ClearRS232 
rscommand, # ' 0 1 
ult, ClearRS232 
rscommand, # ' < 1 
nz,NotRs3C 
GotRs3C 
SKIPRS2 32 

rscommand, # ' > ' 

nz , NotRs 3E 
GotRs3E 
SKI PRS2 32 

rs_temp_hi , #HIGK (RS232 JumpTabie- 
rs temp lc,#LOK {RS232 JumpTable- C 



add rs_temp_lc, rs command 

adc rs_temp_hi , #00 

add rs_temp_lc, rscommand 

adc r s_t emp_h i , ¥ 0 C 

add rstemp_lc, rscommand 

adc rs_temp_ni , # 00 

call 6rs_temp 

jp SKIPRS2 32 
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jp 


GotRs4D 


jp 


GotRs4E 


jP 


GotRs4F 


jP 


GotRsSO 


jP 


GotRsSl 


DP 


GotRs52 


jP 


GotRs53 


jP 


GotRs54 


jP 


GotRsSS 


jP 


GotRs56 



ClearRS232: 

and RS_COUNTER, #11110000b ; Clear the RS232 state 

SKIPRS232: 



UpdateForceAndSpeed : 

; Update the UP force freer, rhe look-up table 





srp 


#FORCE_GROUF 






Id 


f orce_add_hi , 


#HIGH ( f orce_table) 


Q 


■\ -j 


f orce_add_2 c , 


# 1 OV; ( f crce_table } 




di 
add 


f orce_add_lo, 


upf orce 




adc 


f orce_add_hi , 


#00 




add 


f orce_add_lc , 


upf crce 




adc 


f orce_add_hi , 


#0C 




add 


f orce_add_lo, 


upf orce 




adc 


f orce_add_hi , 


#00 




ei 








Idc 


force temp_of, 


0 f cr ce add 




incw 


force_add • 






Idc 


f orce_temp_hi , 


@fcrce add 




incw 


f orce_add 






Idc 


f orce_temp_lo, 


@ f orce_add 


Id 


Divisor, Power 


Level 




call 


ScaleTheSpeec 




di 








Id 


UF__FORCE_KI , force_terr,c_:.: 



Point to the proper registers 
Fetch the proper unsealed 
value from the ROM table 



Offset to point to the 
proper place in the table 
x2 

x3 (three bytes wide) 



; Fetch the ROM bytes 



Id 

ei 



UP FORCE LO, force temp lc 



; Divide by our current force level 
; Scale to get our proper force numbe 

; Update the force registers 



; Update the DOWK force from the look-up table 



Id 


f orce_add_hi , 


#HIGH (f orce_table) 


* 


Id 


f orce_add_lo, 


#LOW ( f crce_table) 


• 


di 








add 


force_add_lc, 


dn force 




adc 


f orce_add_hi , 


#00 




add 


force_add_lc, 


dnf orce 




adc 


f orce_add_hi , 


#00 




add 


f orce_add_lc, 


dnf orce 




adc 


f orce_add_hi , 


#00 




ei 








Idc 


f orce_temp_of , 


@f orce_add 


* 


incw 


f orce_add 






Idc 


f orce_temp_hi , 


C c fcrce add 




incw 


f orce_add 






Idc 


f crce_terrx_lc , 


Q f orce_adc 


» 


Id 


Divisor, PowerLevel 


* 


cal 2 


ScaleTheSpeec 







Fetch the proper unsealed 
value from the ROM table 



Offset to point to the 
proper place in the table 

x2 

x3 (three bytes wide) 



; Fetch the ROM bytes 
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di 
Id 
Id 
ei 



DN_FORCE_HI, f orce_temp_hi 
DN FORCE LO, force temp lo 



Update the force registers 



; Scale the minimum speed based on force setting 



cp STATE , # DN_D I RE CT I ON 

jr z, SetDownMinSpeed 

SetUpMinSpeed : 
di 

Id MinSpeed, UFFORCE 

jr MinSpeedMath 
SetDownMinSpeed : 
di 

Id MinSpeed, DN FORCE 

MinSpeedMath : 

sub MinSpeed, #24 
nc, UpStep2 
MinSpeed 



; If we're traveling down, 
; then use the down force pot for min. speed 

; Disable interrupts during update 
; Scale up force pot 



3* 
clr 

UpStep2 : 

rcf 



; Scale down force pot 

pot level - 24 

; truncate off the negative number 



rr c 
rcf 

I 8 *! r r c 

■™ s> /■» 
'.if, a KJky-* 

% ? r 

id 

MinfgpeedOkay : 

Ljl ei 



MinSpeed 

MinSpeed 
MinSpeed, #4 
MinSpeed, #12 
ule, MinSpeedOka; 
MinSpeed, #12 



Divide by four 



Add four to find the minimum speed 
Perform bounds check on minimum speed h 
; Truncate if necessary 



; Re-enable interrupts 
; Make sure the wcrklight is at the proper time on power-up 
cp 



LineFer, #3£ 

jr ult, TestRadioDeadTime 

cp LIGHTJTIMER_HI, # OFFH 

jr z, TestRadioDeadTime 

cp LIGHT_TIMER_HI , #EURO_LIGHT_H: 

jr ule, TestRadioDeadTime 

cal 1 SetVarLi cht 



; Test for a 50 Hz system 

; if not, we don't have a problem 
; If the light timer is running 
; and it is greater than 
; the European time, fix it 



T e srrfRa d i c De a d7 ime 



cp 

jp 
clr 

clr 
3P 



nz,MAINLOC? 
RadioC 
RFlag 
MAI KLOOF 



TIME, *25 



; test for too long dead 
if not loop 

; clear the radio counte: 
; clear the radio flag 
; loop forever 



Speed scaling (i.e. Division; routine 



ScaleTheSpeed: 



cj.r 
Id 

DivideLoop : 
rcf 
rlc 
rlc 

rlc 
rlc 
cp 

or 

Eit I sD^-ne : 
dir.z 



TestRea 
loopreg , #24 



for ce_t emp_l o 
f orce_temp_hi 

f orce_temt_of 
TestRe- 

TestRea, Diviscr 

ult, Ei~lsl'cr.e 

Tes'wReg, Z:v:s:r 

f orce_temp_io, # 00000001b 

iocpreg, DivideLoop 



; Loop for all 24 bits 

; Rotate the next bit into 
; the test field 



; Test to see if we can subtra- 
; If we can't, we're all dcr.e 
; Subtract the divisor 
; Set the LSB to mark the subtract 



; Loop for all bits 
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DivideDone : 

; Make 
cp 

jr 
cp 

jr 
jr 
cp 

DividelsGood : 
ret 



sure the result is under our 500 ms limit 

force_temp_of , #00 ; Overflow byte must be zero 

nz, ScaleDown ; 

force_temp_hi, #0F4H ; 

ugt, ScaleDown ,* 

ult, DividelsGood ; If we're less, then we're okay 

f orce_temp_lo, #024H ; Test low byte 

ugt, ScaleDown ; if low byte is okay, 

; Number is good 



ScaleDown : 
Id 
Id 
ret 



f orce_temp_hi, #0F4H 
f or ce_t emp__l o , # 0 2 4 H 



; Overflow is never used anyway 



RS232 SUBROUTINES 

Set Command Switch 
Gc£gRs3C: 

■„f% Id LAST CMD,#0AAK 



call CmdSet 
jp NoPos 



V ^ " 



; "sGlear Command Switch 

GofRs31 : 
H* call CmdRel 
a jp NoFos 



; set the last command as rs wall cmd 



; set the command switch 



; release the command switch 



;i§et Worklight Switch 
GcMRs32: 
O call Light Set 
f=i jp NoPos 



. "-.x-rdh ^ 



; Clear Worklight Switch 

GotRs33 : 

clr LIGHT_DE£ 
jp NoPos 



; set the light switch 



; Release the light switch 



♦* A m 



; Set Vacation Switch 

GotRs34 : 

call VacSet 
jp HoPos 



; Set the vacation switch 



; »5" 

; CI «r Vacation Switch 

GotRs35 : 

clr VAC_DEB 
jp NoPos 



; release the vacation switch 



; w 6" 

; Set smart switch 
GotRs36 : 

call SmartSet 
jp NoPos 



; Clear Smart switch set 
GotRs3~ : 
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call SmartRelease 
jp NoPos 



8" 



; Return Present state and reason for that state 
GotRs38: 

Id RS 2 32 DAT, STATE 

or RS232DAT, STACKREASON 

jp LastPos 



n Q tt 



; Return Force Adder and Fault 
GctRs39 : 

Id RS232DAT, FAULT CODE 

jp LastPos 



; insert the fault code 



t • 

; Status Bits 
GotRs3A: 

clr 

tm 

jr 
or 

Locfe^FcrBI ink : 



RS232DAT 

P2, #01000000b 

z , Look For Blink 

R£2 32DAT , #0 00000 0 lb 



Reset data 

Check the strap 

If none, next check 

Set flag for strap high 



ca_L 
tm 

or 



ReafELight : 
tr, 

C3£3one : 



cp 

or 



~i H im** 



LookFor Fl a she r 
P2, #BLINK_PIN 
nz, ReadLight 
RS232DAT, #00000C10b 



PC, # 0 0 0 0 0 0 1 0 E 
z , CSADone 

RS232DAT, #00000l00b 



Code Flag, # REGLE ARK 
ult, LcokForFass 
RS232DA7, #00010D00b 



; If flasher is present, 
; then indicate it 



; read the light 



; Test for being in a learn mode 
; If so, set the bit 



LockFerFass : 



tm 

i r 
tern 

— . V* 

or 



PassCounter, #Cllillllb 
z , LookFcrPrct 
PassCounter, #01illllib 
2, Lock For Fret 
RS232DAT, #0010000 0b 



Check for above pass point 
If sc, set the bit 



LookForPrct : 

tr. 

jr 
or 

LookForVac : 



ACd£: , # 1 0 0 0 0 0 0 0b 
nz, LookForVac 
RS232DAT, #01000000b 



; Check for protector break/block 
; If blocked, don't set the flag 
Set flag for protector signal good 



cp 

DP 
or 



VACFLAG, #00B 
nz, LastPos 
RS232DAT, #0000I000b 
LastPos 



; test for the vacation mode 



; Re:-: 
G r ~ R s 3 



Id 



RS2 32DA7, L_A_C 
LastPos 



; read the LAC 
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M jr 



; Read a word of data from an EE PROM address input by the user 

GotRs3C: 

cp RS_COUNTER, #01 OH 

jr ult, FirstByte 

cp RS_COUNTER , # 0 8 OH 

jr ugt, OutputSecond 



If we have only received the 
first word, wait for more 
If we are outputting, 
output the second byte 



SecondByte : 

Id 
Id 

call 
Id 
Id 
clr 

jP 



SKIPRADIO, # OFFK 

ADDRESS, RS232DA7 

READMEMORY 

RS232DAT, MTEMPH 

RS_TEMP_LO, MTEMPL 

SKIPRADIO 

MidPos 



Read the memory at the specified 
address 

Store into temporary registers 



OutputSecond : 

Id 

jP 

FOstEyte : 

si* ^ nc 
ret 



RS2 32DAT , RS_TEMP_LO 
LastPcs 



RS COUNTER 



; Output the second byte of the read 



; Set to receive second word 



;!J£xit learn limits mode 
Gt¥tRs3D : 
cp 

jP 



a clr 

jM, cr 

n DP 



L_A_C , #00 
Z, NoPos 
L_A_C 

1 e dpc r t , # I e dr. 
NoPos 



tur 



If not in learn mode, 
then don't touch the learn LED 
Reset the learn limits state machine 
n off the LED for program mode 

* 



;OJrite a word of data to the address input by the user 
GotRs3E: 



cp 


RS, 


^COUNTER, #0IFH 




2, 


SecondByte'v" 




RS 


_C0 T JN7E?., #02FK 


jr 


2, 


ThirdByte* 


cp 


RS 


_COUNTER, #03FH 


jr 


z, 


FourthBvteW 



FirstByteW 
DataDone : 

inc 
ret 



RS COUNTER 



; Set to receive next byte 



SecondByteW 

Id 

jr 



RS_TEMF_HI , RS232DA' 
DataDone 



; Store the address 



ThirdByteW 



Id 
3r 



RS_TEM?_LC, RS2 32DA' 
Date w'cne 



; Store the high byte 



FourthBvteW : 



cp 

jr 



RS_TEMP_H I , # 0 3 FH 
uct , FailedWrite 



; Test for illegal address 
; If so, don't write 
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Id SKIPRADIO, #OFFH 

Id ADDRESS, RS_TEMP_HI 

Id MTEMPH , RS_TEMP_LO 

Id MTEMPL, RS232DAT 

call WRITEMEMORY 

clr SKIPRADIO 

Id RS232DAT , #00H 

jp LastPos 



) 



; Turn off radio reads 
; Load the address 
; and the data for the 
EE PROM write 

Re-enable radio reads 
Flag write okay 



FailedWrite 

Id 

jp 



RS2 32DAT, #0FFK 
LastPos 



; Flag bad write 



tf *p M 



; Suspend all communication for 30 seconds 
GotRs3F: 

Clr RSCOMMAND 



DP 



NoPos 



; Throw out any command currently 
; running 

* 
f 



Ignore all RS232 data 



ti 



; Force Up State 
Gcfe&s4 0: 

=0 cp 

5jp" jp 

Ld cp 
jp 

Id 

call 
3P 



- . — 1» 



don tup : 



a - 



STATE, #DN_DIRECTION 
z, dontup 
STATE, #AUTO_REV 
z, NoPos 

STATE, #UP_POSITION 
2, NoPos 
REASON, #0OK 
SET_U P_D I R_STATE 
NoPos 



Id REASON, #00K 

call SET_AREV_ STATE 
jp NoPos 



If traveling down, make sure th; 
the door autoreverses first 
If the door is autoreversing or 
at the up limit, don't let the 
up direction state be set 

Set the reason as command 



Set the reason as command 

; Autoreverse the door 



; fierce Down State 
GgSrs 4 1 : 

cv STATE, #5h 

jp 2,NcPcs 



clr 
call 

jP 



REASON 

SET_DN_DIR STA\ 
NoPos 



test for the down position 



Set the reason as command 



'B 

; Force Stop State 
GotRs42 : 

clr REASON 

call SET_STOP_STATE 

jp NoPos 



Set the reason as command 



"C" 



; Force Up Limit State 
GotRs4 3 : 

clr REASON 

call SET_UP_POS_STATE 

jp NoPos 



Set the reason as command 



; Force Down Limit State 
GctRs4 : 

clr REASON 

call SET_DN_POS_STATE 

jp NoPos 



; Set the reason as command 
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; "E" 

; Return min. force during travel 
GotRs4 5 : 



* 

§ 


Id 


D C O "5 OHTlT MTM PPM 


H T 


• 

r 


cp 


RS_COUNTER, #090h 




• 
t 


jP 


ult ,MidPos 




• 
9 


Id 


R S 2 3 2 D AT , M I N _R PK_ 


LO 




DP 


LastPos 




* 
* 


« 11 






• 


Leave RS232 


mode — go back 




GotRs4 € : 








clr 


RsMode 






Id 


STATUS, # CHARGE 






clr 


RS_C0UN7ER 






Id 


rscommand, #0FFH 






ret 







; Return high and low 

; bytes of min. force read 

i 

t 

for wall control switches 



; Exit the rs232 mode 

; Scan for switches again 
; Wait for input again 
; turn off command 



; "G M 

; {No Function) 

Gdl|Rs4 7 : 
"2? jp NoPos 

;\£b Second search fcr pass point the setup for the door 



Goj;Rs4 8 : 





Id 


SKIPRADIO, #CFFK 


; Disable radio EEPROM reads / writes 




Id 


MTEMPH, #0FFK 


; Erase the up limit and down limit 




Id 


MTEMFL, # OFFH 


; in EEPROM memory 




Id 


ADDRESS , ruFLIMACOR 






call 


WRITEMEMORY 


* 

• 




Id 


ADDRESS , #DNLIMADD?, 






call 


WRITEMEMORY 






Id 


UP LIMIT_HI, #HIGH (SetupPos ) 


; Set the door to travel 




Id 


UP LIMIT LC, #L0>: (SetupFcs ; 


; to the setup position 




Id 


POSITIOK_KI, #04 OH 


; Set the current position to unknown 




and 


Pas s Count e r , * 1 0 0 0 0 C 0 Cx 


; Reset to activate on first pass point 




call 


SET_UP_DIR_S7A7E 


; Force the door to travel 




Id 


One Pas £ , STATE 


; without a limit refresh 




DP 


NoPos 





; Initially say no radio on 
; If there's no radio on, 
; then broadcast that 

; Set data to FF 



; Test for no words out yet 
; If not, transmit high byte 



ti j »i 



; Return radio drop-cut timer 

GotRs 4 9 : 

clr RS232DAT 

cp RTO, #RDR0P7IME 

jp uge, LastPos 

com RS232DAT 

jp LastPos 



; "J" 

; Return current position 
GotRs4A: 



Id 


RS 2 32 DAT, POSIT IONJU 


cp 


RS_COUNTER, #0S0K 


DP 


ult,MidPos 


Id 


RS232DA7, PCSI7IOK_LC 


jp 


Last Fes 



f * - 

; Set radio Received 
GotRs4B : 

cp L A_C, #07GK 



; If we were positioning the up limit, 
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1 

j 


ult, NormalRSRadio' 


* 
t 


then 


start the learn cycle 


» 

J 


z, FirstRSLearn 






» 




cp 


LAC. #071H 


# 

0 


If we had an rror, 






nz, NoPos 






; re-learn, otherwise ignore 


ReLearnRS : 












Id 


L A_C, #072H 


ft 


Set 


the re-learn state 


call 


SET UP_DIR_STATE 






• 

9 




DP 


NoPos 






■ 

f 




FirstRSLearn 


• 
* 










Id 


L A_C, #073H 


• 

t 


Set 


the learn state 




call 


SET UP POS_STATE 






; Start from the "up limit" 


jP 


NoPos 






* 
i 




NormalRSRadio : 










clr 


LAST CMD 






; mark the last command as radio 


Id 


RADI0_CMD, #0AAH 






; set the radio command 


jP 


NoFos 






; return 




; "L" 












; Direct-con 


nee: sensitivity tes 


t 


toggle worklight 


for any code 


GotRs4C : 












; clr 


RTO 






* 
t 


Reset the drop-out timer 


Id 


CodeFiag, #SENS_TEST 




• 

f 


Set the flag to test sensitivity 


3P 


NoFos 






















GogBs4D: 












«*1 jp 


NoPos 






















; Hi" 










is not yet enabled, 


; S we are 


within the first A seconds 


and RS2 32 mode 


; itken echo 


the nybble on F30 - 


P3 


3 on 


all other nybbles 


; JA.K.A. The 6600 test) 










Gc^.Rs : 












O cp 


SDI SABLE , #32 






; If the 4 second init timer 




ult, ExitNoTest 






* 


is done, don't do the test 












Shut down all other GDO operations 


■y id 


COUNT HI, #002H 








Set up to loop for 512 iterations, 


O clr 


COUNT_LC 








totaling 13.056 milliseconds 


Id 


P01K, #oooco:oob 








Set all possible pins of micro. 


Id 


F2M, #00000000t 








to outputs for testing 


Id 


F3K, #000000Clc 










WDT 










1 Kick the dog 


TimingLoop : 












clr 


REGTEMP 






; Create a byte of identical nybbles 


Id 


REGTEMP2 , P3 






; from 


P30 - P33 to write to all ports 


and 


REGTEMF2, #0000111 


lb 








or 


REGTEMP , REGTEMP2 










swap 


REGTEKP2 










or 


REGTEMP, REGTEMP2 










Id 


P0, REGTEMP 








; Echo the nybble to all ports 


Id 


P2 , REGTEMP 










Id 


P3 r REGTEMP 










decw 


COUNT 








; Loop for 512 iterations 


jr 


nz, TimingLoop 








; When done, reset the system 


jP 


START 









Return max. fcrce during travel 



Got?.s4 F : 
Id 
cp 

3P 



RS2 3 2 DAT , F32_MAX_HI 
RS_COUNTER, #C90h 
ult , MidPos 



Return high and low 
; bytes of max. 



force read 
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Id 
jP 



RS232DAT, P32_MAX_LO 
LastPos 



; Return the measured temperature range 
GotRs50 : 



D r 



NoPos 



Return address of last memcry matching 
radio code received 
GotRsSl : 



Id 



RS232DAT , RTEK? 
LastPos 



; Send back the last matching address 



Set Rs232 mode Nc ultra board preserr 
Return Version 
GotRs52 : 

; Q clr UltraBrc 
Setj|ntoRs232 : 

2? Id RS232DAT, #VERSIONNUK 

" ys cd RsKode,#00 

jr ugt, LockedlnNoCR 

Id Id RS2 32DA7, #0EBH 



; Clear flag for ultra board present 



Initially return the version 

If this is the first time we're 

locking RS232, signal it 

Return a flag for initial RS232 lock 



LocikedlnNoCR : 
; ^7 Id RsMode,*32 
i** jr LastPos 



•I c »t 

f T IT** " 

; jfet Rs2 32 mode 
; fpjfturn Version 
Goy&s53 : 



— Ultra board present 



3 It 



NoFos 



; Range test — toggle wcrkligr.t whenever a good memory-matching code 
; is received 
GotRs54 : 



clr RTO 

Id CodeFiag, # 

jr NoPos 



; Reset the drop-out timer 

; Set the flaa to test sensitiv 



ity 



; (No Function) 
GotRs55 : 



3r 



NoPos 



; Return current values of up and down force pots 
GotRs5€ : 



Id 

cp 

Id 



RS232DAT,UPFORCE 

RS_CCVN7ER, #C ?Ch 
ult , Micros 
RS232DA7, DK FORCE 
Last Pes 



Return values of up and down 

force ccts . 



MidPos 



cr RS_COUNTE=, #:OC0C0CO: 

inc RS COUNTER 



; Set • the output mode 

; Transmit the next byte 
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3r 



RSDone 



v 



; exit 



LastPos : 
Id 
Id 
jr 

ExitNoTest 
NoPos : 

clr 
Id 

* 

Id 
Id 
or 
and 
ret 



RSDone 



RS_COUNTER , #11110000B 
rs command, #0FFH 
RSDone 



RS_COUNTER 

rs command, #0FFH 

RsMode, #32 
STATUS, #RSSTATUS 
P3, #CHARGE_SW 
P3, #-DIS SW 



; Exit 



; set the start flag for last byte 
; CI ar the command 



; Wait for input again 
; turn off command 



Set the wall control to RS232 
Turn on the pull-ups 



Radio interrupt from a edge of the radio signal 



• E «k-i S E 

and 

.ENDIF 



IMR, #111111005 





pUSh 


RP 


; save the radio pair 




srp 


#RadioGroup 


; set the register pointer 




Id 


rtemph,T0EXT 


; read the upper byte 




Id 


rtempl , TO 


; read the lower byte 




tm 


IRQ, #00010000E 


; test for pending int 




jr 


2 , RTIMEOK 


; if not then ok time 


E M 


tm 


rtempl, #100000005 


; test for timer reload 




jr 


2, RTIMEOK 


; if not reloaded then ok 




dec 


rtemph 


; if reloaded then dec high for sync 


£&E 


OK: 








clr 


R_DEAD_T I ME 


; clear the dead time 




.IF 


TwoThirtyThree 






and 


IMR, #111111105 


; turn off the radio interrupt 



; Turn off the radio interrupt 



Id 
Id 
sub 
sbc 

RT IKE DONE : 
tm 
jr 

INACTIVE TIME 
cp 
jr 
jP 

GOINACTIVE: 



RTimeDH, RTimePH 
RTimeDL, RTimePL 
RTimeDL, rtempl 
RTimeDH, rtemph 

P3, #000001005 
nz, ACTIVETIME 

RINFILTER, #0FFK 
2, GOINACTIVE 
RADIO EXIT 



find the difference 



in past time and the past time ir. ter.r 

; test the port for the edge 

; if it was the active time then branch 



; test for active last time 
; if so continue 

; if not the return 



.IF 
or 

. ENDIF 



TwoThirtyThree 
IRQ, #010000005 



; set the bit setting direction to pos edge 



clr 

Id 
16 
Id 



RINFILTER 

rtimeih, RTimeDH 
rtimeii , RTimeDL 
RTimePH, rtemph 
RTimePL, rterr.rl 



set flag to inactive 

transfer difference to inactive 

transfer temp into the past 



CP 

.TP 



radioc, #01H 
N2, RADIO EXIT 



; inactive time after sync bit 
;exit if it was not sync 
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TM 
JR 
CP 
JP 
CLR 

DP 

FixedBlank 
CP 
JP 

CLR 

* 
t 

DP 

ACTIVETIME 
cp 

jr 

GOACTIVE: 



RadioMode, #ROLL MXSK 



;If in fixed mode, 



z, FixedBlank 

rtimeih,#OAH 

ULT,RADIO_EXIT 

radioc 

RADIO EXIT 



rtimeih, #014K 
ULT, RADIO_EXIT 
radioc 

RADIO_EXIT 

RINFILTER, #00K 
Z , GOACTIVE 
RADIO EXIT 



;no number counter exists 

; 2. 56ms for rolling code mode 

; pulse ok exit as normal 
;if pulse is longer, bogus sync, restart sync search 

; return 



; test for the max width 5.16ms 
; pulse ok exit as normal 
;if pulse is longer, bogus sync, restart sync search 

; return 

; test for active last time 

; if so continue 

; if not the return 



.IF TwoThirtyThree 
and IRQ, #001111115 
.ENDIF 



; clear bit setting direction to neg edge 



Id 
Id 
1c 
Id 



RINFILTER , # C'FFH 
rtimeah, RTimeDK 
rt imeal , RTimeDL 
RT ime PK , r t emph 
RTimeFL, rterr.pl 



G^jBothEdges : 
s ; ei 
= ™ cp radioc , # 1 

~1f ip u g t , I N S I G 

.IF UseSiminor 

tiz z / C'r.€ i_ k S ^ it, _ * < w- r 



transfer difference to active 
transfer temp into the past 



enable the interrupts 

test for the blank timing 

if not then in the middle of signal 



MESS 



END I F 



BlankSki 



SyncOk : 



Fixedsync : 



SET1 



SYNC1 FLAG : 



anc 

TM 
JR 

cp 

OR 

cp 
i r 



TM 
JR 
CP 
JR 
JR 

CP 



cl; 
cp 
j r 

tn 



raaioc 

RFlag, #OC10000GB 
NZ , BlankSkip 

Radi c Time Out , * 1 C 
ult , Clear Jurr.p 

RFlag, #CC10C:0Cr 

rtimeah, # :-0h 
z , JustNc-ise 



; Test for a Siminor tx on the first bi 
; set the counter to the next number 

;Has a valid blank time occured 



; test for the min 10 ms blank time 
if not then clear the radio 

; blank time valid! no need to check 

test first the min sync 

; if high byte 0 then clear the radio 



/checking sync pulse width, fix or Roll 



RadioMode, #ROLL_MASK 
z , Fixedsync 

rtimeah, #09h ;time for roll 1/2 fixed, 2.3ms 

uge, JustNcise 

SET1 



rtimeah, #012h 
uge, JustNoise 



PREVFIX 

rtimeah, SyncThresh 
uge, SYNC3 FLAG 

RFlag, #01000000b 



; test for the max time 4 . 6mS 
; if not clear 



; Clear the previous "fixed" bit 
test for 1 or three time units 

; set the sync 3 flag 

;Was a sync 1 word the last received 
if net, then this is an A for D: cede 



SETBCCODE: 



Id 



r a d i o 3 h , radicln 



; Store the last sync 1 word 
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JustNoise : 



Id 
or 
and 
jr 

CLR 
JP 



radio31, radioll 
RFlag, #00000110b 
RFlag, #11110111b 
BCCODE 

radioc 
RADIO EXIT 



;Set the B/C Code flags 
; Clear the A/D Code Flag 



;Edge was noise k p waiting for sync bit 



SETADCODE : 



BCCODE 



SYNC3FLAG: 



DOSESET1 : 
R%IO_EXIT 



Ci^ear Jumr 



.IF 



Siim^adic : 



SimBitOne : 



SimBitZero : 



RotatelnBit 





RFlas flOOOCOOOb 

X \ X> u> ^ j T" v V' V v * W \p/ w 






or 


RFlag, #01000000b 




set the sync 1 memory flag 


cir 






clear the memory 


clr 


radioll 






c j. r 


L-VJUIN 1 In 




clear the memory 


clr 


COUNT 1L 






jr 


DONESET1 




• do the 2X 


and 


RFlag, #10111111fc 




• set the sync 3 memory flag 


clr 


radic3h 




• clear the memory 


clr 


radi c 3 1 






clr 


COUNT 3 H 




• clear the memory 


clr 


COUNT 3 L 






clr 


ID_E 




■ Clear the ID bits 


and 


SKIPRADIO, # LOW(*NOIN 


T) ; Re-enable radio ints 


pop 


rp 






iret 






; done return 


or 


F2, #1000C000b 


turn 


of the flag bit for clear radio 


jP 


ClearRadio 


; clear the radio signal 


UseSiminor 






tm 


r time ah, fclOGOGOOOfc ; 


Test 


for inactive greater than active 


jr 


nz , Sirr^EitZerc 




; If so, binary zerc received 


scf 






; Set the bit 


jr 


Rotatelr.Ei t 




■ 

t 


rcf 








rrc 


CodeTG 


Shift 


the new bit into the 


rrc 


CodeTl 


radio 


word 


rrc 


CodeT2 






rrc 


CodeT3 






rrc 


CodeT4 






rrc 


CodeTS 






inc 


radioc ; 


increase the counter 


cp 


radioc, #(45- - 1 2 £ 1 ; 


Test 


for all 48 tits received 


DP 


UCt , CLr-ArtnAL. 5 - ^* 






DP 


2, KnowSimCode 








RADIC_EXIT 
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CheckSiminor : 



tm 

cp 
jr 



RadioMode, #ROLL__MASK ; If not in a rolling mode, 

z, INSIG ; then it can't be a Siminor transmitter 

RadioTimeOut , #35 ; If the blank time is longer than 35 ms, 
ugt, INSIG ; then it can't be a Siminor unit 



.ENDIF 



INSIG: 



ISigOk : 



ASigOk : 



or RadioC, #10000000b 

clr ID B 



AND RFIag, #1101111 IB 

cp rtimeih, #014K 

jr uge, Clear Jump 

cp rtimeih, #00h 

jr 2, Clear Jump 

cp rtimeah, #01 4K 

jr uge, Clear Jump 

cp rtimeah, #00h 

jr z, CI ear Jump 

sub rtimeal , rtimeil 

sbc rtimeah, rtimeih 



; Set the flag for a Siminor signal 
; No ID bits for Siminor 



; clear blank time good flag 
; test for the max width 5.16 
; if too wide clear 
; test for the min width 

; if high byte is zero, pulse too narrow 

; test for the max width 
; if too wide clear 

; if greater then 0 then signal ok 
; if too narrow clear 

; find the difference 



UseSiminor 



tm 
jr 



RadioC, # 10000000b 
nz, SimRadic 



; If this is a Siminor code, 
; then handle it appropriately 



ENDIF 



POSJ?IFF2: 



NESfIFF2 : 



BITIS3: 

BIT2COMP: 
BITIS2 : 

BITIS1 : 

GOTRADBIT 



ADDRADBIT 



tm 
jr 

j r 

cp 

jr 
jr 



com 
cp 
jr 
jr 

Id 
jr 

com 

Id 
jr 

com 
Id 

clr 
clr 
clr 
clr 
ei 



rtimeah, #10000000b 
nz , NEGDIFF2 
POSD3FF 2 

rtimeah, BitThresh 
ult, BITIS2 
BITIS3 



rtimeah 

rtimeah, Eit Thresh 
ult, BIT2COM? 

e:t;s; 

RADI05IT, #2h 
GOTRADBIT 

rtimeah 

RADIOEIT, #lh 
GOTRADBIT 

rtimeah 

RAD I OB IT , #0h 

rtimeah 
rtimeal 
rtimeih 
rtimeil 



SetRpTcRacio2 Grout 
srp # Radio 2 Gr cup 
tr. rf lag, *C:0CC-CC:-b 

jr r.z,RCli:;C 



find out if neg 

; use 1 for ABC or D 



test for 3/2 

; mark as a 2 



; invert 
; test for 2/1 
; mark as a 2 



; set the value 



; invert 



; set the value 



; invert 
; set the value 



; clear the time 



; enable interrupts — REDUNDANT 

;Kacro for assembler error 
-- this is what it does 
; test for radio 1/3 



RC3INC: 



tm 



RadioMode, #R0LL MASK 



;If in fixed mode, 
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Radio3INC: 



D r 
tm 

jr 



z, Radio3F 
RadioC, #00000001b 
nz , C0UNT3INC 



no number counter exists 
; test for even odd number 
if EVEN number counter 

; else radio 



Radio3R : 
Radio3F: 



SPECIAL BITS 



call 

cp 

jr 



srp 

di 

Id 

Id 

jr 



jr 



GETTRUEFIX 
RadioC, #14 
uge, SPECIAL_BITS 



#RadioGrcup 

pointerh, #Radio3K 
pointerl, #Radio3L 
AddAll 

RadioC, #20 
z, SWITCHID 



;Get the true fixed bit 

; test the radio counter for the specials 
; save the special bits seperate 



Disable interrupts to avoid pointer collision 
get the pointer 



; test for the switch id 
; if so then branch 



SWJ&CHID 

3-i a 



Id RTempH,id_b 

add ic_b, RTempK 

add id_b,RTempH 

add id_fc , red i obi t 

jr Radio3R 

cp id_b,#18 

jr uge, Radio3R 

Id sw^b, radiofci t 

jr Radio3R 



; add 



save the special bit 
*3 
*3 

in the new value 



; If this was a touch code, 
then we already have the ID bit 
save the switch ID 



RC1 S INC: 



RaSolINC 



SwitchBit 
RadiolF : 



tm 
jr 
tm 
jr 



call 

cp 

jr 

tm 

*i r 

cp 

jr 

Id 

s rp 

di 

Id 

Id 

jr 



RadioMode, #ROLL_MASK ;If in fixed mode, no number counter 

z, RadiolF 

RadioC, #00GG0001b ; test for even odd number 

nz, COUNT1INC ; if odd number counter 



GETTRUEFIX 

RadioC, #G2 

nz, RadiolF 

rf lag, #0G010CD0b 

z, SwitchEitl 

id_b, #18 

ult, RadiolF 

sw_b, radiobit 

#RadioGroup 

pointerh, #RadiolH 
pointerl, #RadiclL 
AddAll 



; else radio 

; Get the real fixed code 
;If this is bit 1 of the 1ms code, 
/then see if we need the switch ID hi 
;If this is the first word received, 

; then save the switch bit regardless 
;If we have a touch code, 

; then this is our switch ID bit 

; Save touch code ID bit 



Disable interrupts to avoid pointer collision 
get the pointer 



GETTRUEFIX 



; Chamberlain proprietary fixed code 
; bit decryption algorithm goes here 



ret 



COUNT 3 INC: 



COUNT I INC 



Id 

srp 

di 

Id 

Id 



rollbit, radicbit 
#RadioGroup 

pcmterh, #CO"N"73H 
pointerl, #COUKT3L 
AddAll 



; Store the roiling bit 



Disable interrupt 
get the pointer 



u G a v o w — » . i_ c — — — — — — 
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Id 

srp 

di 

Id 

Id 



rollbit, radiobit 
#RadioGroup 

pointerh, #C0UNT1H 
pointerl, #C0UNT1L 

AddAll 



; Store the rolling bit 

; Disable interrupts to avoid pointer collision 
; g t the pointers 



AddAll: 



ALLADDED 



FUj&^WORD 



ISCCODE 



FIRST2G 



Id 


addvalueh, @pointerh 


■ 

9 


get 


the value 


Id 


addvaluel , @pointeri 


* 
9 






add 


addvaluel, epcinterl 


m 

9 


add 


x2 


adc 


addvalueh, @pointerh 


• 






add 


addvaluel, @pointerl 


• 
9 


add 


x3 


adc 


addvalueh, Gpcinterh 


• 
9 






add 


addvaluel , RADIOBIT 


* 


add 


in new number 


adc 


addvalueh, #00h 






• 


Id 


Gpointerh, addvalueh 


* 


save the value 


Id 


Gpointerl, addvaluel 








ei 






; Re-enable : 



inc radioc 

cr rad:::, MaxEits 

jp nz , RRETURN 



; increase the counter 

; test for full (10/2C bit) word 
; if not then return 



;;;;;Disable interrupts until word is handled 

or SKI FRADIO, #NOINT • ; Set the flag to disable radio interrup 

.IF ' TwoThirtyThree 

and I MR , #1111111 OB ; turn off the radio interrupt 

. ELSE 

and IMR, # 1 I 1 1 1 100E ; Turn off the radio interrupt 

.ENDIF 



clr 
cp 

jP 
and 

tm 

or 
clr 

jP 



RadioTimeOut 
RADIOBIT, #00H 
z, ISCCODE 
RFlag, #111111015 

RFlag, #000:C0005 
nz, KNOW CODE 



RFlac , # 0 Z 
radioc 

rreturn 



- Ti r r 

v, \-' h. 



Reset the blank time 

; If the last bit is zero, 

then the code is the obsolete C code 
; Last digit isn't zero, clear B code flag 

; test flag for previous word received 
; if the second word received 

; set the flag 
clear the radio counter 
; return 



.IF UseSimincr 



KnowS imCode : 

; Siminor proprietary rcliing code 

Id radiolh, #0FFH 

clr MirrorA 

clr MirrorE 

jp CounterCorrected 

. ENDIF 



decryption algorithm goes here 

; Set the code to be incompatible with 
; the Chamberlain rolling code 

« 
■ 

9 



KNOWCODI : 



tit RadioKcde, #?.ril_!C-.SK ;If net in rolling mode, 

r z, Counter Corrected; ; forget the number counter 

; Chamberlain proprietary counter decryption algorithm goes here 
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CounterCorrected : 




NoTCode : 



STORECODE : 



srp 
clr 
tm 

jP 

cp 

jr 
or 

Id 

call 

Id 

cp 

jP 

tm 
jr 



#RadioGroup ; 

rrTO ; clear the got a radio flag 

SKIPRADIO, #N0EECOMM ; test for the skip flag 

nz , CLEARRADIO ; if skip flag is active then donot look at EE mem 



ID_B, #18 
ult, NoTCode 
RFiaa, #OOOOC100b 



;If the ID bits total more than 18, 
;then indicate a touch code 



ADDRESS, # VAC AT I ONADDR ; set the non vol address to the VAC flag 

READMEMORY ; read the value 

VACF1AG, MTEMPH ; save into volital 
Code Fl ag , #REG LEARN ; test for in learn mode 

nz , TESTCODE ; if out of learn mode then test for matching 

RadioMode, #ROLL_MASK ;If we are in fixed mode, 

z, FixedOnly ; then don't compare the counters 



Compare Counters ; 





cp 


PCour.terA, Mirror A 


* 


Test for counter match to previous 




jp 


nz , S TORE N OTMAT C H 




; if no match, try again 


w ;: 


cp 


PCounterE, MirrorB- 




Test for counter match to previous 


™ 3 


jP 


nz, STORENOTMATCH 




; if no match, try again 




cp 


PCounter C , MirrorC" 


4 
f 


Test for counter match to previous 




jP 


nz, STORENOTMATCH 




; if no match, try again 




cp 


PCounterD, MirrorD 


i 


Test for counter match to previous 




jp 


nz, STORENOTMATCH 




; if no match, try again 


FixedOnly : 












CP 


P KADI 02 H, radiolh 




; test for the match 


5==5s 


jp 


nz, STORENOTMATCH 




; if not a match then loop again 


\sJ 


cp 


PRADI01L, radioll 




; test for the match 


; s H 


jp 


nz , STORENOTMATCH 




; if not a match then loop again 




<=p 


PRADI03K, radio3h 




; test for the match 


- *» 


jp 


nz, STORENOTMATCH 




; if not a match then loop again 




cp 


PRAriGSL, rac:o3: 




; test for the match 




jp 


nz, STORENOTMATCH 




; if not a match then loop again 




cp 


AUXLEARNSW, #11 € 




; If learn was not from wall control, 




J - 


ugt, CMDONLY 


* 
t 


then learn a command only 


CmdNotOpen : 












tm 


CM0_DEE, #I000GCC0fc 


* 


If the command switch is held, 




jr 


nz, CmdOrOCS 


* 


then we are learning command or o/c/s 


CheckLight : 












tm 


LIGHT DEB, #10CGOOGGb 


; If the light switch and the lock 




jP 


2, CLEARRADI 02 




switch are being held, 




tm 


VAC_DEE, #2 00000 00b 


• 

t 


then learn a light trans. 




jp 


z, CLEARRADI 02 




* 


LearningLight 


+ 
# 










tm 


RadioMode, #ROLL MASK 


; Only learn a light trans, if we are in 




jr 


z, CMDONLY 




; the rolling mode. 




Id 


CodeFiag, #LRNLIGHT 




* 




Id 


BitMask, #01010101b 








jr 


CMDONLY 






CmdOrOCS : 












tm 


±* i Gr. . r , f _ ~ w -j v - 




; If the light switch isn't being held, 




jr 


nz, CMDONLY 




; then see if we are learning o/c/s 



CheckOCS : 
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tm 

jP 
tm 

jr 
tm 
jr 
Id 
Id 



1 



0 



VAC_DEB, #10000000b ; If the 
Z, CLEARRADI02 
RadioMode, #ROLL_MASK 
z , CMDONLY 
RadioC, #10000000b ; If the 
nz, CMDONLY 
CodeFlag, #LRNOCS 
BitMask, #10101C10b ; 



vacation switch isn't held, 
then it must be a normal command 
Only learn an o/c/s if we are in 

the rolling mode, 
bit for siminor is set, 
then don't learn as an o/c/s Tx 
Set flag to learn o/c/s 



CMDONLY 



WriteOverOCS 



call TESTCODES 

cp ADDRESS , #0FFi 

jr z, STORE MATCH 

dec ADDRESS 

jp READYTOWRITE 



test the code to see if in memory now 
If the code isn't in memory 



STOREMATCH: 



cp 



RadioMode, #ROLL_TEST ; If we are not testing a new mode, 

ugt, SameRadioMode ; then don't switch 



5et§&5 Fixed : 



SetAsRoll 



WriteMode 



Id 

call 
tn 



3 r 



Id 

call 
jr 

Id 

call 



call 



ADDRESS, #MODEADDR ; Fetch the old radio mode, 
READMEMORY ; change only the low order 

RadioMode, #?. DLL_MASK ; byte, and write in its new value 

nz, SetAsRcll ; 



RadioMode, #FIXED_MODE 

FixedNuir.s 

WriteMode 

RadioMode, #RCLL_MODE 
RollNums 

MTEMFL, RadioMode 
WRITEMEMORY 



Set the fixed thresholds permanently 



; Set the rolling thresholds permanently 



Sa^yRadioMode : 



ACODE : 



tm 

jp 
tir. 

jr 
Id 

call 

inc 

inc 

tr. 

jr 



RFlag, #000000103 
nz, CCODE 
RFlag, #000001005 
nz , BCODE 



ADDRESS , # 2EH 
READMEMORY 
MTEMPH 
MTEMFH 

RadioMode , #ROLL_MASK 
z, FixedMem 



If the flag for the C code is set, 

then set the C Code address 
test for the b code 
if a B code jump 



; set the address to read the last written 

; read the memory 
; add 2 to the last written 



; If the radio is in fixed mode, 

; then handle the fixed mode memory 



RollMeir. : 



mc 
inc 
and 

cp 
jr 
jr 



MTEMPH 

MTEMPH 

MTEMPH , #1111110 0B 
MTEMPH, #1FH 
ult, GOTAADDRESS 
AddressZero 



; Add another 2 to the last written 



Set to a multiple of four 
test for the last address 
If not the last address jump 
Address is now zero 



FixedMem 



and MTEMPH, #11111110B 
cp MTEMPH, #17H 

ir ult, GOTAADDRESS 



; set the address on a even number 
; test for the last address 

; if not the last address jump 



AddressZero : 



GOTAADDRESS : 



1G 

Id 
Id 
LD 



» . * - - - - / 7T V ~ 



ADDRESS, #2BH 
RTemp, MTEMFH 
MTEMPL, MTEMPH 



; set the address to 0 

; set the address to write the last written 
; save the address 
; both bytes same 
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c» 




call 


WRITEMEMORY 




Id 


ADDRESS, rtemp ; 




• 

D r 




CCODE : 








tm 


RadioMode , #ROLL_MASK 




jP 


nz, CLEARRADIO 




Id 


ADDRESS, #01AH 






RE ADYTOWR I TE 


BCODE : 








tm 


Radi oMode , #RCLL_MASK 




jr 


2, BFixed 


BRoll : 








cp 


SW B, # ENTER 




3P 


nz, CLEARRADIO 




Id 


ADDRESS, #2 OH 




jr 


READYTOWRITE 


BFixed : 








cp 


radio3h, #9 OK 




jr 


nz,BCODEOK 




cp 

* 


radio31,#29H ; 




j r 


nz, BCODEOK 




jP 


CLEARRADIO 


BCGgkoK : 








Id 


ADDRESS , # 1 SK 


REJffiYTOWRITE 


* 






call 


WRITECODE 


NOfjfjxSTORE: 








tm 


RadioMode, #ROLL_MASK 


H 1 


jr 


Z, NOWRITESTORE 




inc 






Id 


RadiolH, MirrorA 




Id 


RadioIL, MirrorE 




1c 


Radic3K, MirrorC 




Id 


Radio3L, Mirrcrn 




call 


WRITECODE 


■» 

*T 3 i+ 


call 


SetMask 


y 


com 


BitMask 


s a 


Id 


ADDRESS, #R7YrEADDR ; 


~»«IH — » 


call 


READMEMORY 




tm 


RFiag, #:0000000b 






nz, UpEyte 


LowByte : 








and 


MiEMFL, BiuKaSK 




j * 


MaskDone 


UpByte : 








and 


MTEMFH, BitMask 


MaskDone : 








com 


DltnoS K 




cp 


CodeFlag, frLRK LIGHT ; 




jr 


z, LearnLight ; 




cp 






jr 


z, LearnOCS 


Normal : 








clr 


BitMask 




jr 


BMReady 


LearnLight : 








and 


BitMask, fcClClClCIb ; 




jr 


BMReady 


LearnOCS : 








cp 


SW E, #C2H 




jP 


nz, CLEARRADI 02 




and 


BitMask, fclClCIOiOb ; 



; write it 
set the address 



o 



If in rolling code mode, 
th n HOW DID WE GET A C CODE? 
Set the C code address 
Store the C code 



; If in fixed mode, 

; handle normal touch code 

If the user is trying to learn a key 
; other than enter, THROW IT OUT 
Set the address for the rolling touch code 



test for the 00 code 
test for the 00 code 

9 

; SKIP MAGIC NUMBER 
set the address for the B code 

; write the code in radiol and radic3 



If we are in fixed mode, 

then we are done 

Point to the counter address 

Store the counter into the radio 

for the writecode routine 



R ; Fetch the radio types 



; Find the proper byte of the type 



; Wipe out the proper bits 



; If we are learning an o/c/s, 
; set the appropriate bits 



; Set the proper bits as command 



; Bit mask is ready 

; If 'open* switch is not being held, 
; then don't accept the transmitter 
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BMReadv : 










Find the proper byte of the type 




tin 


RFlag, #10000000b 




t 




jr 


nz, UpByt2 




• 

r 




LowByt2 : 










Write the transmitter type in 




or 


MTEMPL, BitMask 




■ 




i r 
j 


MaskDon2 




* 




UpBvt2 : 










Write the transmitter type in 




or 


MTEMPH, EitMask 




* 


MaskDon2 : 














call 


WRITEMEMORY 




• 


Store the transmitter types 


NOWRI TEST ORE : 














xcr 


pO, # WORK LIGHT 




toggle light 




or 


ledpor t , # ledh 




turn off the LED for program mode 




Id 


LIGKT1S, #24 4 




turn on the 1 second blink 




Id 


LEARNT , # OFFK 




set learnmode timer 




Lil 






■ 

r 


disallow cmd from learn 




clr 


CodeF"! ac 




t 


Clear any learning flags 




J h' 


CLEAR RADIO 




m 
t 


return 


£ T ORE N PT MA*" 1 C H 














Id 


PRADIOIH, radiolh 






transfer radio into past 




Id 


PP-ADIOIL, radioll 










Id 


PRATT O 3 H , r a c i o 3 h 










Id 


PRAT I 0? 1 , r a d i c 3 1 












KflCi oM ode , #R0" T 


MASK ; 


If we are in fixed mode, 




j ^ 


2, CLEAR RADI 0 




get the next code 




Id 


PCcur.terA, Mirror 


-f- - 


trans 


fer counter into past 




Id 


PCcunterB, Mirror 


E 






* - 5 


I ri 


FCcu r terC. b' ~ rro r 


/- 








Id 


PCoum.erT, Mirror 










jp 


CLEAR RADIO 






















cp 


ID_E, #18 




; I f this was a touch code , 






uce, TTReceived 






handle appropriately 




tlT; 


FFIac , 4tO0OC0IO0i: 

A k. ^ *™ ^ 1 1 W W *r V ■ ■ ■ 






■ If we have received a B code, 




i r 


2 . Ao r DCode 






; then check for the learn mode 


h Hi 


cp 


ZZWIK, #64 






; Test 0000 learn window 


• ft 






f 


i f cu 


t of window nc learn 


5 a 


rr. 


Pv a d i c I H , #9 0 H 


♦ 








"i r 


nz , Ac r DCode 


• 








cc 


fv _m _ ^ ^ ^ ^ TT 










i r 


nz, AorDTode 


r 






im* t- • 














pu s h 


RP 












#LEARNE r GRP 










call 


setlea.rk" 












RP 










J r* 


C ■ f , A K K H i_/ j_ 0 








AorDCode : 














CP 


L_A_C, #0*7 OH 


t 


Test 


for in learn limits mode 




j r 


uqe, FSI 






; If so, don't blink the LED 




cp 


FAULT FLAG, # OFFH 






; test for a active fault 




i r 








; if a avtive fault skip led set and 




and 


ledport , #ledl 


t 


turn 


on the LED for flashing from signal 


FS1 : 














call 








; test the codes 




cp 


L_A_C, # 07 OH 


a 


Test 


for in learn limits mode 












; If so, don't blink the LEI 












; test for a active fault 




j r 


2, FS2 






; if a avtive fault skip led set and 




cr 


1 o ^ ^ ^ *- ii " c ^ *»- 


i 


turn 


off the LED for flashing frorr. signal 



reset 



FS2 
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cp 
jP 



ADDRESS, #OFFh 
nz, GOTMATCH 
CLEAR RAD 10 



; test for the not matching state 

; if matching the send a command if needed 
; clear the radio 



SimRollCheck : 



inc ADDRESS 

inc ADDRESS 

call READMEMOPY 

Id Count erC, MTEMPK 

Id CounterD, MTEMrl 



Point to the rolling' code 
(Note: High word always zero) 
Point to rest of the counter 
Fetch lower word of counter 



cp 
cp 

jP 



CodeT2, Counter: 
nz, UpdateSCode 
CodeT5, CounterD 
nz, UpdateSCode 
CLEAR RAD 10 



If the two counters are equal, 
then don't activate 



Counters equal -- throw it out 



UpdateSCode 



*J7 r 



3-5: E 



1c 
Id 

Cel. 

sub 
she 

tir. 
3F 
DP 



MTEMPK, CodeT2 
MTEMPL, CcdeT3 
WP. I T E ME MO? V 

CodeT3, CounterD 
CodeT2 , Counter C 

CodeT2, #10000000b 
nz, Cxjt-Ai\r\A*_ j. 0 
Mat chGcodSirr. 



Always update the counter if the 
fixed portions match 



; Compare the two codes 



; If the result is negative, 
; then don 1 1 activate 
; Match good handle normally 



GCjtfMATCK 



3 » 



cp 

i r 



2f/ - — f """* ^ ..— ., — * "~ 
f - - C - - -v' ^— 



MAS?" ; If we are in fixed mode, 

; ther. the match is already valid 



RadioC, #100 0 00 0 0b 
nz, SimRoll Check 



EitMask, #10: 
z, Roll Check] 

SW_E, #02 
nz, Match See: 



C.'r- 



; If this was a Simincr transmitter, 

; then test the roll in its own way 

; If this was NOT an open/close /stop trans, 
hen we must check the rolling value 



If the o/c/s had a key other than '2 
then don't check / update the roll 



RollCheckE 



KatchGoi 



call TestCc-ur.ter 

cp CMP, # EQUAL 

jp z, NOTNEWMATCH 

cp cmp, #fwtv;i;: 

jp nz, CheckPast 

Id RadiolH, MirrorA 

Id RadioIL, MirrcrE 

id Radic3H, MirrorC 

Id Radio3L, MirrorD 

dec ADDRESS 

call WRITECODE 



Rciiing mode -- compare the counter 
If the code is equal, 
then just keep it 
If we are not in forward window, 
then forget the code 



Store the counter into memory 
to keep the roll current 



Line up the address for writing 



Veil 



MatchGoodOCS : 
MatchGccdSim : 



o; 



RFiag, #0000000 
PTC , *?.r? OPTIMA 

" - v*. * ~ ~ ~_ - ~ 



; set the flag for recieving without erro; 

; test for the timer time out 

; if the timer is active then denct reiss 



cp 



ADDRESS, #2 3H 
z, MatchGcod2 



If the code was the rolling touch code, 
then we already know the transmitter type 
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J 



LowerD : 

UpperD: 
TransType : 

MatchGood2 : 

TEST VAC: 

% 5 % 

r 

Fi|fcedE : 
TSft^DI SABLE : 

kad:cco:<man: 

zzwincl r : 
BDONTSET : 



R L arning : 
Fi r s t Le err.: 

NormalRadic : 



call SetMask ; Set th mask bits prop rly 

Id ADDRESS , #RTYPEADDR ; Fetch the transmitter config. bits 

call READMEMORY 

tm RFlag, #10000000b ; If we are in the upper word, 

jr nz, UpperD ; check the upper transmitters 

and BitMask, MTEKPL ; Isolate our transmitter 

jr TransType ; Check out transmitter type 

and BitMask, M7EMPK ; Isolate our transmitter 

tir. BitMask, *C101t:01b ; Test for light transmitter 

jr nz, LightTrans ; Execute light transmitter 

tm BitMask, #101C1010b ; Test for Open/Close/Stop Transmitter 

jr nz, OCSTrans ; Execute open/close/stop transmitter 

; Otherwise, standard command transmitter 

or RFlag ,# 0000C0C IB ; set the flag for recieving without error 

cp RTC, #RDROPTIME ; test for the timer time out 

jp ul t , N0TNEWKA7CH ; if the timer is active then donot reissue cmd 

cp VAC FLAG , * ! Or ; test for the vacation mode 

jp z , TSTSD'SAELE ; if net in vacation mode test the systerr. disable 

tm RadioMooe, #RCLL_MASK 

jr z, FixedE 

cp ADDRESS , ¥ 2 ; If this was a touch code, 

jp nz, KCTNEWMA7CH ; then do a command 

jp TSTSDI SABLE 



cp- ADDRESS , *1 r*:-: ; test fcr the 5 code 

jp nz , NC7NEWMA7 CH ; if not a B not a match 

cp SDISAELE,*21 ; test for 4 second 

jp- ul t , NOTKEWM-.TCH ; if € s not up not a new code 

cir RTC ; clear the radio timeout 

cp 0NEF2,*:: ; test for the 1.2 second time out 

jp nz , ND7KEWMA? CH ; if the timer is active ther. skip the comma no 

clr RTC ; clear the radio timeout 

trr. RF1 a g , $ ZOZ Z- C 1 C C r ; test foraE code 

jr 2 , EDCN75I7 ; if net a b cede donot set flag 

clr ZZv;;:; ; flag got matching B code 

Id CodeFlac , #ERECEIVEC ; flag for aobs bypa s s 

cp L _ A _ C ' #C70K ; If we were positioning the up limit, 

jr ult, NormalRadic ; then start the learn cycle 

jr z, Firs tie err. 

cp #C7IH ; If we had an error, 

jp nz, CLEARRACIC ; re-learn, otherwise ignore 

Id L_A_C, #072H ; Set the re-learn state 

call SET_UF_DIR_STATE 

jp CLEARRADIC 

id l_^-_ c ' *C"3H ; Set the learn state 

call SE7_"?_?CS_57A7E ; Start from the "up limit" 

clr LAST C:-' I ; mark the last command as radio 
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Id 
jP 



RADIO_CKD, #GAAH 
CLEARRADIO 




set the radio command 
return 



clr RTC 

cp ONE?2,*00 

jp nz, NOTNEWMATCK 

Id SW_DATA, #LIGHT_SW ; Set 

ip CLEARRADIO 



; Clear the radio timeout 
; Test for the 1.2 sec. time out 
; If it isn't timed out, leave 
a light command 
; return 



3P 
cp 

3P 

clr 

cp 

jp 



STISAELE, * J c 

U -i. w , )S V ' - 1 * J— V * • ' - ^ - • 

VAC FLAG, #DGH 
nz, NOTNEWKATCH 
RTC 

ONE? 2, #0C 

nz, NOTNEWMATCK 



Test for 4 second system disable 
; if not done not a new code 
If we are in vacation mode, 

don't obey the transmitter 
Clear the radio timeout 
test for the 1.2 second timeout 
If the timer is active the skip comma n< 



cp 
jr 



SW_E, #C2 

nz, CloseOr Stop 



If the open button is pressed, 
then process it 



cp STATE , fSTDr ; If we are stcppec cr 

jr z, Oper/Jp ; at the down limit, the: 

cp STATE , fc~N_F0SITION ; begin tc move up 

jr z, Open Up 

cr STATE , * OK_OI RECT Z OK ; If we are moving down, 

3 r nz, OCSExit ; then autoreverse 

16 REASON, #G10H ; Set the reason as radio 

call SET_ARE7_STATE 

ir OCSExit 



call 



RE AS OK , *G10H 

D Z r . ST; 



; Set the reason as radic 



c - t * 



DP 



clear pah :■: 



sv; r , * : i 



If the 



stop button is pressed, 



cc STATE, ¥> T? TIRECTIOK ; If we are moving or ir. 

jr z , Stoplt ; the autoreverse state, 

cp STATE, **DN_r;i RECTI ON ; then stop the door 

j r z , Stoplt 

cp STATE, #AUTC_REV ; 

jr z, Stcplt 

jr OCSExit 



id REASON, #0ICH ; Set the reason as radio 

call SET_STO?_STATE 
jr OCSExit 



STATE, #T?_FOS 1TI0N" ; If we are at the up lir.it 
z, ZlzseZz ; cr s t cpped ir. travel, 

STATE, *STCr ; then send the doer down 
z, Close It ; 
OCSExit 
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Closelt : 

Id REASON, #010K ; Set the reason as radio 

call SET_DN_DIR_ STATE 

jr OCSExit 

SetMask : 



ana 

tm 

jr 



InLowerEvte 



tm 
i r 



Ei ght Or Twelve : 



ZeroOrFour : 



LSNybble: 



we _ ve 



Z erb O r 



Id 
jr 

"5 H 



i r 

re' 

er.i 
re' 



RFIag , #GIlllillb ; Reset the page 1 bit 

ADDRESS, fcllllGCCOb ; If our address is on page 1, 
z, Ir.LowerEyte ; then set the proper flag 

R r i c G f 4* . v i. w > >. 0 i 

ADDRESS, #0 0002 00 Ob ; Einary search to set the 

z, ZeroOrFour ; proper bits in the bit mask 

BitKask, #11 11 000:i: 
LSNybtle 

EitMask, *0C0ClilIt ; 

z, ZercOrO:::.: 

™ * *~ ^ *" ?•"*'"'"■ '™ C 1 o * 

p r »/£. * " .' ' * ' " * " 



TE&T CODES : 



RQICheck 
KEtfTCCDE : 

HAVEKASK : 



call 



tm 

J - 

cl: 
ci: 



and 

cal 
cp 

j r 
cp 

jr 
inc 

tZT: 

jr 
cp 

cp 
jr 
cp 
jr 



ADDRESS, #RTY?EADDE ; Get 
READMEKORY 

ReiicTyief, XTEX?1 ; 

* ■ * j I"* fe 5 ^ ' * - - - 

RadioMode, #RGLL_KAS?: 
nz, Roll Check 

* y p e s 
R - ypesz 

ADDRESS 



the radio types 



ntKas.-:, = . 

READMEK DRY 
KTEKFK, radi : 
nz , NOMATCH 
KTEKFD, radi z 
nz , NOKATCH 
Al>D?.ZSS 
READMEKORY 
E.itKask, ^ _ l , 
nz, CheckOCS 
CodeFlar, *U 
z, CheckOCS! 
MTEMPK , radio, 
nz , NOKATCH 2 - 
MTEMFL, radio. 
nz,NOKATCK2 



; start address is 0 



Get the approprite bit mask 
e the current transmitter types 



read the word at this address 
test for the match 

if not matching then do next address 
test for the match 

if not matching then do next address 
set the second half of the code 
read the word at this address 
; If this is an Open/Close/Stop trans., 
; then do the different check 

; If we are in open /close /stop learn mode, 
; then do the different check 
test for the match 

if not matching then do the next address 
test for the match 

if not matching then do the next address 



CheckCCSl 



re' 



; return with the address of the match 



sue 
sbc 

r- *~ 



N , *-v:- - = - - - - * 

MTZMF K , racieSh 
Code El a 2 , 

Fcsitive 



*1R!CC 



■2 , 



Subtract the radio iron, the merger y 

If we are trying to learn open .'close / s 
; then we must complement to be positive 

Page 58 of 97 



Positive 



com 
com 
add 
adc 

cp 
jr 
cp 
jr 

ret 



MTEMFL 
MTEMPH 
MTEMPL, #1 
MTEMPK, #0 

MTEMPH , #00 
nz, NOMATCK2 
MTEMPL, #02 
ugt, NOMATCK2 




; Switch from ones complement to 2's 
; complement 

; We must be within 2 to match properly 



; Return with the address of the match 



N0MA7CH: 
NOMATCK2 



A^extAcc 



mc 

inc 

tm 

~. 

inc 
inc 
cp 

id 

cp 
i r 



r ^,^1: r c c 



ADDRESS 

RadioMcde, #R01L_MASK 
z , AtNextAdd 
ADDRESS 
ADDRESS 
ADDRESS , #10H 
nz , At Next Add 



; set the address to the next code 

; set the address to the next code 
; If we are in fixed mode, 
; then we are at the next address 

; Roll mode -- advance past the ccun 



ter 



Radi 



ypes , 



r. . vte S <- 



If we are on the second page 
then get the other tx . types 



u2t , NEXT CODE 



; test for the last address 

; if not the last address then try agai: 



GQT3NOMA7 CH 



re 



; set the no match f la- 
; and return 



Nl^NEWKATCK : 



cl r 



raci cc 
RADIO EXI 



; reset the racic time out 

; clear radio flags leaving recievinc 
clear the radio bit counter 
set the learn timer "turn off" and backup 

; return 



w / c e r 



Ci^ Z M r a s t 



trocrietary £.l 
code c 



v <— - 1 "» 

_^ >w J. _ ^. . J V 



- - - ■. c - Tv' s: 



■d, date Past cr CLEARP.ADIC 



Updct eFas t : 



CLEAR? AD I C 2 



LsstMatch, AC DRESS 



cunterA, 



V - t Z~ 



Id PCounterS, MirrcrE 

Id PCounterC, KirrcrC 

Id PCounterC, Mirror C 

Id LEARNT, # OFFH 

cl r CodeFlac 



Store the last fixed code receive 
Store the last counter received 



Turn off the learn mode timer 



CLEAR RADIC 



.IF 
and 
.END 



TwcThirtyThree 
IRQ, #001111118 



i r 



; clear the bit setting direction to neg edge 



SKI PRC 0 



tJT. 



RFlag , # 
R7C 

y ~ ^ " a r 

_ ++r W 1 W 

R: i a c 



; set flag tc 

; test for receiving wi 
; if flag net set then 
; clear radio timer 

; clear the radio counter 

; clear the radio flag 



Q *" **" ■*"■ ■** 
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TCReceivec 



clr 
jP 



cp 
jr 
cp 
j r 
and 
i r 



ID_B 

RADIC EXIT 



L_A_C, #07 OK 
uge, TestTrunccte 
FAULT FLAG , # OFFH 
z, TestTruncat e 
ledpc rt , #Iedi 
TestTruncate 



. Clear the ID bits 
; return 



Test for in learn limits mode 

If so, don't blink the LED 
If no fault 
turn on the led 



; Truncate off most significant aicit 



TruncTC : 



sue Radio 11, #0E3h 
sbc RadiolK, M C4 Ch 



Subtract out 3 A 9 to truncate 



TestTruncate : 



cp 



RadiolK, #04 
ugt, TruncTC 
u 1 1 , Get" 
hazLzlZ, #:E 



— • - i 



tru 



; If we are greate 
ncate down 



r than 3"9, 



CfiB ckl C : 



cp 

— v- 

f J~ 

cr 



cp 
~ *■ 

cp 

j r 

ca 
cp 

' »w 

CH 

i r 



ADDRES5, #TC-VC: 

L_A_C, #C~0K 
uge, Cheek ID- 
FAULT FLA 3 , #0F: 
z , CheCKl E' 

* ^ t* " v * £ ^ r- 

MTEKPH, Radio 3i 
n z , C ^r. AKrvrt I -o 
KTEMRL, RadicS: 
n 2 , C LEA?. RA ZZC 

Tes:C: ur.:e: 



n: , CLEAR?. 



; Check to make sure the ID code is coed 

t 

Test for in learn limits mode 
If sc, don't blink the LED 

; If no fault, 

; turn off the LED 



; Test the rolling code counte 
; If the counter is equal, 
; then call it the same code 



Id 



COUK 1 
COUK' 



— - t 



Ra 
Ra 



Id 


RadiclK, 


Mi r rcrA 


Id 


Radi ol L , 




Id 


Radio3K , 


Mi r r c r C 


i 


R a d i e ? 1 , 


N* - v- - - - - 


de e 












Id 


RadiclH , 




Id 


RadlC'.i *- t 


,/—> * T 

y„ \J ^' .\ i j_i 


^ * ,— 


Code Fl = e 


* * ^ D r/'L-. 


— >- 

cp 

— 


z , K e rrr. . 

JUw i _ C — ' 


, r — * 




Z , 

r" i ~ " s. — 




ic 


2 , i^e c ii> 






t x — — — 





; Back up radio code 



; Write the counter 



; Restore the radio code 



; Find and -umo tc current mode 
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NcrrriTC : 



Id ADDRESS , # TOUCH PERM 

call READMEMORY 

cp RadioiH, MTEMPH 

jr nz, CheckTCTemp 

cp RadiolL, MTEMFL 

jr nz, CheckTCTemp 



Compare the four-digit touch 

code to our permanent password 



cp ■ SW_E, # ENTER 

jp 2, radiooommang 
cp sw_5, #?c t jn: 

jr z, TCLeair. 

; Star key pressed star 



; If the ENTER key was pressed, 

; issue a B code radio command 

; If the user pressed the pound key, 
; enter the learn mode 
t 30 s timer 



cj. r 

Id 

Id 

Id 

Id 

jP 



LEARNT 

FLASK__COUNTEF. , #06h ; Elink the worklight three 
FLASH_DELAY, *FLASH_TIME ; times quickly 
FLASK FLAG, #GFFH ; 

Code Flag, #LRKTEM? ; Enter learn temporary mode 
CLEAR RADIO 



Id 
Id 



FLASH_CO"JKTER, #:4h ; El 
FLASK_ DELAY , * FLASK_T IME 
FLASH FLAG, C FFH 



k the worklight tw; 
; times quickly 



pus n 
srp 
call 
pop 



RF 

# LEA 

^ — ~ 

R? 



; Enter learn mode 



SET LEARN 



CheckTCTemp 



id 
cal 



jr 



ADORE SS , #100 CKTEM ? 
READMEMORY 
RsdiclH, MTEM?K 
n 2 / 0 LE>- R^A I ~ 
RadiolL, MTEMFL 



; Cornea re 



the four- digit touch 
code to our temporary passw 



cp 
jF 



STATE, #D!;_?OSITIO:: ; 

r.z, fadiocomma:;: 



f we are net at the down 1 irr.it, 
; issue a c omm and reaard^ess 



ik_ G — 



cp 

jp 



AO D?*E S S , p 00? A* 
READMEMORY 
MTEMFL , * I 0 
z , CLEARRAI I Z 



I f the duration is 



zer: , 



then don * t issue a corr.T.= :.a 



cp MTEMPH , *A00IYAT 

j p nz, RAD I OCOMMAN 0 

dec MTEMFL 

call WRITEMEMORY 

ic- RADIOCOMMANO 



; If we are in number of a 
; mode , then decrement the 
number of activations left 



ct ivat ions 



,earnTM? : 



cp 
jP 



SK_B, # ENTER 
nz, CLEAR RADIO 



; If the user pressed a key other 

; then enter, reject the code 



CD 



r\ L r-- _ ' L. -*j u r. 1 



* - *- / «L & IT. t ' w 0 ' 

RadiclL, M" 



'EM PL 



tr.e ccae enterea matcnes tne 
; permanent touch code, 
; then re j e ct the cede as a 
temccrarv code 
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TempGood : 



Id ADDRESS , #TOUCKTEMF ; 

Id M7EMPH, RadiolH 

Id MTEMPL, RadiciL 

call WRITEMEMORY 



Write the code into temp, 
code memory 



Id 
Id 
Id 



FLASK_COUN7ER, #C5h ; Blink the worklight four 
FIJ^SH_DELAY, #FLA£H_TIME ; times quickly 
FLASH FLAG , # C FFH ; 



Start 



clr LEARN 7 

Id CodeFiac, #LRND*JR7K 

jp CLEARRADIO 



Enter learn duration mode 



Lear^--" 



1 Jb> u ^ 



cp 
DP 

ct 



RadioiH, #CC 
nz, CLEARRADIC 

sv; r, #?o*jn: 



sv; 

2 , 

^ Ij r. .Hr.r-n ~ - 



; If the duration was > 2 55, 

; reject the duration entered 



.he user pressed the pound 

kev, number of activations mo 
If the star key was pressed, 
enter the timer mode 
Enter pressed reject code 



Id 
"i r 



K7E!-:?H, #AC7IV 



Flaa number of activations mode 



diLirationl: 



Id 



x c 

ca , 



M7EKFK , 4* H 0 V R S 



K7EKFL, Radi 

address, *:v 

WRI7EMEX CRY 



; Fiaa number of hours mode 



Load in duration 

Write duration and mode 

intc nonvolatile memory 



x c 
id 
cl 



#v:r-RKLZG 

LIGH71 S , *24 

r C ~ ', ~" 



; Give the light one blink 
sting one second 

; Clear the learn fiac 



Toe* U /- *] * ■•*»-'-. r *'~— i^l ^-,^»- c -r- C • - > f - *- C: 

Note: CcunterA-D will be used as te 



mr recisters 



7estCcunter 



pu s h 


R? 




s rp 


#SounterGrour. 




inc 


ADDRESS 


; Point 


C c a i 


1^ » V J -* 


; Fetch 


Id 


counter a , K7EMPK 




Id 


^. ^ _ , , , , *. c v f/— ~ v r * 






A r.i. S C 


; Point 


call 




; Fetch 










counter 3, !\7EMFL 





to the rolling code counter 



Subtract eld counter , countera-d '■ from current 
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) 



counter (ir.i rrora-d ) and store in countera-d 



s. — S If, * *~ 



1 T; r s C K. r\ ~ 



CountersEoual : 



nFwdWir. 



corn 


countera 


; Obtain twos complement of counter 


cor ; 


counte rb 






coir. 


counter c 






com 


counte rd 






add 


countera, #01K 






adc 


count ere, #00K 






adc 


counte rb, #0CH 






adc 


counter a, #33H 






add 


count ere, rr.irrcrd 


; Subtract 


adc 


count ere, mirrorc 






adc 


count erb , mirrcrb 






adc 


countera, mirrors 








J- i. L. JiC 1 . i A_ ^- _ i_ w — .. .. 


terc is negative, check to see 




1 ^~ o ^ "v *ST*. /"I 

J. i. Vv tr C i. t XiiC i UC u 


he negative window 




c c un t e i - , ? 1 C C 3 1 C 3 






V- »— 






- Check tc see if we are 


3 - 


nz, OutCfWir.dcw 




■ less than -0403H 


C F 


ccunterb, #jFFH 




■ (i.e. are we greater than 


j - 


nz, Out Of Window 




■ OxFFFFFCOOK ■ 




COj-vC-w, r _ r ^. . . 








ul t , OutCf Window 






Id 


cmf , #5^ckw:n 


; Retur 


n in back window 


3 r 


CorrpDone 






cp 


ws^— — — | * V - . - 




■ Check tc see if we are less 




t- — i . • £ ~ *~ * ♦* C ■ • 




t h an 0 C 0 3 3 C ~ 2 = 13 2 4 


3 r 


nz, Cut Cf Window 




a z 1 1 v c 1 1 on 5 




r^jr-*^T- v ■ f\ \2 
w < - — — — r v- ^- * • 






— 


















nz, InFwdWin 






cp 


counter:, #31>: 






* 


r- "* . Tn T^u> -J \\ -' — 






* 

Id 


CKF, #Z£"JAL 


; Return equal counters 




Come Done 






Id 


CMF, #FWDWIN 


; Return 


in forward window 











Cut - 1 a i n c t 



; netur 



v — . — _ . . e 



Page 63 of 97 



pop 
ret 



RF 



; Clear interrupt 

t 

Clea rRac i c : 
cp 



RadioMode, #ROLL_TEST 
uct, MODEDOICE 

T125MS, #000000Clc 
- cr~: - - - 



;If in fixed or rolling mode, 
; then we cannot switch 

;If our 'coin toss ' was a zerc, 

; set as the rolling mode 



SET FIXED : 
Id 



RadioMode, #r:XEE_TES 
call FixedNums 
jp ' MODE DON* E 



SETROLL: 



1 ri 

-1- w> 

ca . 

its? 

mIIiEDONE : 



5 '4 



c - r 



c_ r 



C = - r- TV -i c 

RellNur\s 



Radi cT 

RadioC 
R F 1 a - 



TT.C: i 1 



; clear radio timer 

; clear the radio counter 

; clear the radio flags 



'T13V 



pop 
i re 



FsTxedKums : 



1 ~ 

1 C 

re' 



RF 



; reset the RP 
; rezurr 



EitThre sr., # 7IX7K? 
SyncThresh, fcFIXSY 
MaxritS, * 7 1 X r I 7 5 



RcllNums 



j. a 
id 
Id 
ret 



Eit Thresh, #77H] 
S yn :Tr.res:., * r 5 ' 
MaxEits, * L r 1 7 £ 



; rotate mirror Loop Count 



^ t r: e r. a o c 



RotateKirrcrAdd : 



rcf 




; clear the 


carry 


ric 


mz rr or d 


• 

r 




rlc 


mi rrcr c 


t 




rlc 


mi rrorb 


f 


* 


rlc 


minora 


m 

i 




H"ir "» 

U j li i. 


1 oopcour.t , Rot a teXi r r c r~dc 


; loop till 


done 



add counterd, mirrord 

adc counterc, mirror c 

adc counterb,mirrcrb 

adc counters, mirrcra 
ret 



; LEARN DEBOUNCES THE LEARN SWITCH BOmS 

; TIMES OUT THE LEARN MODE 3 0 SECONDS 

; DEBOUNCES THE LEARN SWITCH FOP. ERASE € SECOND: 



LEARN : 



Sip 


it! FZVRTOrr RRr 


C P 


STATE, # DEPOSITION 




z , TESTLEARN 


cp 


STAT£* f *Lr FUoiilO.N 


i r 


2, TESTLEARN 


cp 


STATE, #STOF 


jr 


2, TESTLEARN 


cp 


L A C, #074K 


j r 


2 , TESTLEARN 


. id 


iearnt , # 0 FFH 




learnt , : 




nz , ERASE7EST 




learn of f 


ipSC LEARN: 






learndb, #2 3 6 




nz, LEARNNCTRELEASE 


{fe'ARN RE LEASED 


* 


J^artRe lease : 




4» cp 


L_A_C, #07 OK 


pss; J 


nz, NormLeamBreak 


s J. " 


REASON, #COH 


p~ call 


SET_STOF_STATE 


$|| rmLe arnBreak: 


5 : 

Clr 


LEARNDB 


Q re: 




^ — * _ ^ - ^ . j*- — * ^--^ 


,SE~ : 

CodeFlac, #LRN7EK? 




uge , INLEARN 




learndb, #20 


"i r 


nz, ERASE TEST 


SETLEARN : 




call 


Smart Set 


ERASETEST : 




cp 


L_A_C, #07 OH 


J- 


uge, ERASERELEASE 


cp 


learndb, #0FFK 


— y 


nz, ERASERELEASE 


cp 


eraser, # OFFH 




nz , ERASETIMING 


clr 


eraset 


ERASETIMING: 




cp 


eraset ,#46 


jr 


z , ERASETIME 


ret 

r r ■- *»' - * 




cr 


ledpert , #ledh 




SKir ra~ : ; , *NC"~o: 


v„ C _ 


*^ ■ TIT ^_ m' / ** s t »- 


clr 


skipracic 



; set the register pointer 
; test for motor stoped 



test for motor stoped 
test for motor stoped 
Test for traveling 
set the learn timer 

test f cr the leerr. 30 second t ime ou 



f not then test erase 

; if 30 seconds then 



turn off the iearr. mode 



; test fcr the debounced release 
; if debouncer not released then 



; Test for in learn limits mode 

; If net, treat the break as normal 

; Set the reason as command 



i urn: 



; clear the debouncer 
; return 



test for learn mode 
if in learn jump 
test for denounce perioc 
if not then test the erase per 



"est for in learn limits mode 

; If SO, DON'T ERASE THE MEMORY ■ 

; test for learn button active 
if button released set the erase time 
test for timer active 
if the timer active jump 
clear the erase timer 



test for the erase perioc 
if timed out the erase 
else we return 

; turn off the led 
; set the f 1 a r :: s : 
clear all codes in r.er.cry 
reset the flag to skip ra 



1C 



learnt , # OFFH 



,* set the learn timer 
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cl r 
ret 



CodeFlag 



return 



SmartSet : 

cp 

j* 
Id 

call 
NcrmLearnMakel : 



L_A_C, #07 OK 
nz, NormLearnMa 
REASON , #00K 
SET_DN_NOBLINK 
LearnMakeDone 



ke 1 



CD 

* 

Id 
Id 

call 



L A 



4H 



nz , No rir.Le a r r.M a 
L_A_C, #075K 
REASON , #CC'K 
SE7_AREV_STATZ 
Le a r nMa ke Dene 



NormLearnMake2 : 

c 1 r LEARN 
Id 
and 
clr 



CodeFIag, #REGL! 
ledport , # ledl 
VACFLAG 



id ADDRESS, *VACAT 

clr K7EMPH 

clr MTEM? 1 

id skipradic, *noe 

call WRITEMEMDRY 

gi clr SKIFRADIC 
L esmK skeDcne: 

7\ id LEARNDE , # C FFH 
w# ret 



I0KADDJ 



Test for in learn limits mode 
If not, treat normally 
Set the reason as command 



Test for traveling down 
If not, treat normally 
Reverse off false floor 
Set the reason as command 



; wri 



; clear the learn timer 
; Set the learn flag 

; turn on the led 
; clear vacation mode 

; set the non vol address f o 
; clear the data for cleared vacati 
> 

; set the flag 
te the memory 

; clear the flag 

; set the debouncer 



ERpaSERE LEASE : 

Mi id 
cr 



ret 



eraser, # 0 FFH 

ie a rr.d t , f 2 3 i 
z , LEAF,NRELEAS! 



; turn off the erase timer 
; test for the debounced release 
debouncer not released then jump 
; return 



learndr , # 2 C 
n z , TEST LEAR! ' 



If|§EARN : 

i^i cp 

LJ id learndb , * 0 

TEST LEARN TIMER: 

cr learnt , P 24 



leameff : 
cr 



D r 



ledport , ¥ leer, 
learnt , P C FFH 
learndb, *: FFH 
CodeFla z 
ERASETEST 



test for the debounce period 
if not then test the learn timer 
; set the learn db 

test fcr the learn 3C second time 
then test erase 

; turn off the led 
set the learn timer 

; set the learn debounce 
Clear ANY code types 
test the erase timer 



WRITE WORD TO MEMORY 
ADDRESS IS SET IN REG ADDRESS 
DATA IS IN REG MTEMPH AN! MTEM: 
RETURN ADDRESS IS UN CHANGE I 



WRITEMEMORY : 

push RP 



s rr 



* LEARN EE 



; SAVE THE RP 

the register pointer 



call STARTr 



call 



s e r 1 = - , * 



cspcrt , * cs 
STA.R7E 
serial, * 1 1 



; output the start bit 

; set byte to enable write 

; output the byte 
reset the chip select 

; output the start bit 
set the byte for write 
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or 


serial, address 


; or m the address 


call 


SERIALOUT 


; output the byte 


Id 


se r i a 1 , mt emph 


; set the first byte to write 


call 


SERIALOUT 


; output the byte 


Id 


serial , mtempl 


; set the s cond byte to write 


call 


SERIALOUT 


; output th byt 


call 


ENDWRITE 


; wait for the ready status 


call 


STARTS 


; output the start bit 


Id 


serial, #00000000B 


; set byte to disable write 


call 


SERIALOUT 


; output the byte 


and 


csport , #csi 


; reset the chip select 


or 


P2M SHADOW , # c 1 oc kh 


; Change program switch back to read 


Id 


P2K, P2M_SKAD0K 


* 


pop 


RP 


; reset the RP 


ret 







READ WORD FROM MEMORY 

ADDRESS IS SET IN REG ADDRESS 

DATA IS RETURNED IN REG MTEMPH AND KTEMP' 

ADDRESS IS UNCHANGED 



READMEMORY: 



push 


RP 


* 




*learnee_gr? 


; set the register pointer 


call 


STARTE 


; output the start bit 


Id 


serial , #100CCO0CE 


; prearrijle for read 


or 


serial , address 


; or in the address 


call 


SERIALO'JT 


; output the byte 


cai 1 


SERIALIN 


; read the first byte 


Id 


mt emph , serial 


; save the value in mtemph 


call 


SERIALIN 


; read teh second byte 


a. 




; save the value in mtempl 




csport, * csl 


; rese: the chip select 


or 


P2M SHADOW, #ciockh 


; Change program switch ba 


Id 


P2M, P2M SHADOW 




pop 


RP 





ret 



;Q?RITE CODE TO 2 MEMO?.: ADDRESS 

; CODE IS IN RADIO! K RAniCIL RADIC3H RA-I03L 



WRITECCDE : 



push 
srp 
Id 
Id 

call 

inc 

Id 

id 

call 

pop 

ret 



RF 

#LEARNEE_GRF ; 
mt emph , Ra d i o I K 

WRITEMEMORY 
address 

mtemph, Radio3K 
it. i. emp _ f Red o j l 
WRITEMEMORY 
RF 



set the register pcmter 

transfer the data frorr. radio I to the t errp s 

write the temp bits 
next address 

transfer the data from radio 3 to the temps 
write the temps 

return 



CLEAR ALL RADIO CODES IN THE MEMORY 



CL r *."~D r c 



S : 
push 
s r i 
16 

Id 



RP 

MTEMPH , * OFF H 
MTEMPL, *CFFH 
address , # 00H 



set the register pointer 

set the codes to illegal codes 

; clear address 0 
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CLEARC 



call 

inc 

cp 

jr 

clr 

clr 

call 

Id 

call 



WRITEMEMORY ; 
address 

address, # (AddressCounter - 1) 

ult , CLEARC 

mtemph 

rriteir.pl 

WRITEMEMGRY 

address, #AddressAPointer 
WRITEMEMORY ; 



»» 



AO" 



; set the next address 

; test for the last address of radio 

clear data 

; Clear radio types 
clear address F 



Id addres s , #MODEADDP, 

call WRITEMEKCRY 



;Set EE PROM memory as fixed test 



Id 
Id 
Id 
Id 



RadioMode, #FIXEC_TE 
BitThresh, # FIXTHR 
SyncThresh, #FIXSYNC 

MaxEits, #fixeits 



; Revert to fixed mode testino 



CodesClearec : 



pep 
re: 



return 



l&TART EIT FOR SERIAL N ON VOL 



; glSO 


SETS 


DATA DIRECTION* ANT ANT CS 








Sl5f.TE 


• 














F2M SHADOW, * deck! & del) 






; Set output mode for clock line and 




Id 


P2K, F2K_SHAD0W 






; I/O lines 




and 


cspcri , # c s 1 


* 








and 


elkport, # clock! 






; start by clearing the bits 




and 












cr 


csrcr:,*:s:. 


r 


set 


the chip select 




or 


dioport , #dch 


* 
/ 


set 


the data out high 




cr 


elkport, #clcckh 






; set the clock 




and 


^" 1 l/^" v * 4j — , "~ * i,' 






; reset the clock low 




and 


dioport , #dol 




set 


the data low 




ret 








; return 














; ENL 


OF CC 


ZZ WFTTE 








ENOWRI 


TE : 












a . . _ 


cspcrt , * csl 


* 


rese 


t the chip select 












; delay 




c r 


c sport , £ csh 


* 


set 


the chip select 




c r 


F2K SHADOW, *dch 






; Set the data line to input 




Id 


P2K, F 2 K _ S HA D 0 V" 






; set port 2 mode forcing input mode 


endwr: 


TELOO 












Id 


t err.ph , dioport 






; read the port 






t eir.p n , £ o — n 






; ma s k 






z, ENDWRITELOOP 






; if the bit is low then loop until 




and 


csport , M csl 




rese 


t the chip select 




cr 


F2K_S HA D OW , # r I o c k h 


* 
t 


Reset the clock line to read- smart butter. 




and 


F2K SHADOW, #dcl 






; Set the data line back to output 




Id 


P2M, P2K SHADOW 






; set port 2 mode forcing output mod 



ret 



+ * + ★ * 



F2K_SHAD0W, * -;doi & clcckl 
F2:*:, ?2K_SHADCW 
t err.r 1, # 6 H 



Set the clock and data lines to outputs 

; set pert 2 mode fcrcir.r output r.cde ca 
; set the count for eight bits 
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SERIALOUTLOOP: 

rlc serial 



ONEOUT : 



3r 

i 

Or 
or 
and 
and 
d jnz 



ret 
ZEROOUT : 

and 

cr 

and 

and 

djnz 

ret 



nc , ZEROOUT 

dioport , #doh 
clkport , #clockh 
clkport, #clockI 
dioport , #dol 
tempi , SERIALOUTLOOP 



dioport , #doI 
clkport, #ciockh 
clkport, #clockl 
dioport , #dol 
tempi, SERIALOLTLOO: 



; get the bit to output into the carry 
; output a zero if no carry 

; set the data out high 

; set the clock. high 

; reset the clock low 
; reset the data out low 

; loop till done 
; return 

; reset the data out low 

; set the clock high 

; reset the clock low 
; reset the data out low 

; loop till done 
; return 



; SERIAL IK 
; l 5 ^ K ? 7 7 5 A E V 



ct r ~ z 



.IN* 



o: 



; : a 



Id 

SCa IAL IN LOG : 
"=a or 



f 

a 
and 



ret 



scf 



CUTSET : 



rlc 
and 
d jnz 

ret 



F2H_SHA0OW, #00! 
F2M, P2K_SKA0OW 
tempi , ¥ c H 

clkport, fcclockh 

temph, dioport 
temph , *dc> 
2, D0N7SE7 



sena^ 

cl kport , # cl o 
tempi, SERIAL 



in: 



; Force the data line to input 

; set port 2 mode forcing input mode data 

; set the count for eight bits 

set the clock high 
reset the carry flag 
read the port 
ma s k out the bits 



; set the carry flag 

; get the bit into the byte 
; reset the clock low 

; loop till done 
; return 



'INER UPDATE FROM INTERUP7 EVE? Y C.2 5€m.S 



SkipFulse : 
; tm 
jr 

; or 
;NoPuise : 

ire' 



SKIPRALIO, #N-CI 
nz, NoPulse 
IMR, #RadioImr 



If the ' no radio interrupt ' 
flag is set, just leave 
turn on the radio 



TIMERUD: 



NcEn 



tm 

or 

able : 
dec 



SKIPRADIO, #N0IK' 
nz, NoEnable 
IMR, #RadicImr 



TOEXTKSRI 



;If the 'no radio interrupt 1 
;flag is set, just leave 
; turn on the radio 

; decrement the TO extension 



T^ExtDcr.e : 



HiahAC 



P2 , #LIKEIKPIK 



; Test the AC line in 



s iow f mar k zero crcssin: 
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Low AC 



inc LineCtr 

jr LineDone 

cp LineCtr, #0S 

jr ult, KighAC 

Id LinePer, LineCtr 

clr LineCtr 

Id PhaseTMR, PhaseTime 



; Count the high time 



If the line was low before 

then one-shot the edge of the line 
Store the high time 
Reset the counter 
; Reset the timer for the phase control 



LineDone : 



i r 
cp 

j r 

dei 

jr 



<J 'J 



Power Leve 1 , #2 
uge, PhaseGn 
Power Level , 
z, PhaseOff 
PhaseTMR 
mi , Phase Or. 



; Test for at full wave of phase 
; net, turn off at the start cf the phase 
; If we're at the minimum, 
; then never turn the phase control on 
; Update the timer for phase control 
; If we are past the zero point, turn on 



,r.e line 



PhaseCf f : 
i r 



PhasePrt, #-Fhase 
Phase Done 



; Turn off the phase control 



Fnase: 



Ph a s € ? r t , *.-:.iS6Hi ~ 



urr. or. the chase control 



Fha^eDcr.e : 



Degf PMDr : 
M> dec 



iT'sCp. PMDE : 

111' 

s._,Js -i v 



ae 



P2, #c-o:oc-::cr: 

nz, IncRPKDE 

R?r-:_riLTER, #c : 

z, RPKFiltered 
RPH_ FILTER 

RPXFi 1 1 e r e c 

RPX_ FILTER 

nz, RPXFi 1 teree 

RPX FILTER 



; Test the RPM in pin 
; If we're high, increment the filter 



Decrement the value of the filte 
we're not already at zero 



Increment the value of the filte: 
and back turn if necessary 



VectcrR ?!Cow : 



RPX_FIL7Er , * 12 
z , Ve::cr?.?>:Hi::. 

, ^ - c V - ' - - - - ^ ^ 

pfx_f:lter 

Task Switcher 



VectcrR FXH i c r. : 



RPX FIL7r.R, *CFiH 



If we've seen 2.5 ms cf high time 
then vector high 

If we've seer. 2 . f ms cf lew time 



, c . 



e c t c r low 



TaskSwit cher 

tm 
i r 

j r 
tm 
jr 
tm 
jr 



1 * , $ V w \J V — . C 

nz, SkipPulse 

toext, #oooio:i:-r 

nz , TASr'.i 35" 
TOEXT, frOOCOCIOOb 
z, TASK04 
■TOEXT, #C00C1000fc 
nz, TASK 6 



; skit> everyother pulse 



Test for odd numbered task 

If so do the 1ms timer update 

Test for task 2 or € 

If not, then go to Tasks 0 and 4 

Test for task 6 

If so, jump 

Otherwise, we must be in task 2 



c r 

i ret 



— • » - ■ » 



i - 



c — z. ~^yj- z r. Z I * E 



; turn on the interrupt 



do the motor function 
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o r 
ei 

£>ush 

srp 

call 

pop 

iret 



I MR, #RETURN_IMR 
rp 

#TIMER_GR0UP 

switches 

rp 



) 



; turn on the interrupt 

; save the rp 
; set the rp for the switches 
; test the switches 



TASK6: 



cr 
ei 

call 
iret 



I MR, *RET'JR?:_"MR 
TIMER 4 MS 



; turn on the interrupt 



; do the four ms timer 



TASK! 357 : 



push 

or 

ei 



R? 

I MR, # RETURN IMP. 



; turn on the interrupt 



ON EMS : 



LoVerDn : 



Higher Dr. : 



Di#otDone : 

S3 

LpwerUt : 



Hasher Up: 



Vpf otDone 



GoTimer : 



BlockedBea: 



NOFAIL: 



i r 

and 
j r 

or 
inc 

tm 



anc 

or 

inc 

inc 



rrc 
rcf 
rrc 



id 

sub 

Id 

sub 

ei 

clr 

clr 

srp 
dec 

jr 
Id 
tm 

or 

cr 

inc 
cr 



C - t ^ _ . • ^- - - r 

nz, Higher I r. 

p3, # i~D0WK_0-J7.. 
DnFc tDcr.e 

p2 , #DOWN_0"T 
DN_TEMF 

pO, #UF_COMF 
nz , HigherVt 

F3, # {-UP_OU7; 
UpFot Done 

F3, #UF_CV7 
UFJTEM? 

r O - _ ^ w' - . - - 

UPJTEMF 

DN__TEMr 

UP FORCE, *€3 

UPFORCE, UFJTEM? 

DN FORCE, £6 3 

DN FORCE , DN _TE M ? 

UPJTEMF 
DK_TEMF 

#LEARNEE_GR? 
AOBSTEST 
nz , NOFAI L 
A03STEST, #11 
AOBSF, #0C100000b 

t-, — 13 1 r *■ V c ^ « c 

RadioTimeC-ut 
OES_C0UN7, #0C 
z, 7ES7125 



; Test down force pot. 

; Average too low output pulse 

; take pulse output low 



; Output a high pulse 

; Increase measured duty cycle 

; Test the up force pot. 



; Average too low -- output pulse 



; Take pulse output low- 



Output a high pulse 
Increase measured duty cycle 

Increment the total period for 
duty cycle measurement 
Divide the pot values by twc to c 
a 64-level force range 



C a i c u 



Subtra: 
ate pot 
counts 



t from 6 3 to reverse the dire; 
. values every 255 



ct fail 



counts 



; set the register pointer 

; decrease the aobs test timer 

; if the timer not at 0 then it didn 
; if it failed reset the timer 

; If the aobs was blocked before, 
dcr.'t turn on the light 

; Set the break edge flag 

; Set the single break flag 



; Test for protect cr timed out 

; If it has failed, then don't decrement 
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dec 



OES COUNT 



; Deer erne n t the t ime r 



PPointDeb 



DecPPDeb : 



IncPFDeb : 



FPDebDone 
TEST125 : 



di 
tm 

jr 

and 

jr 
dec 

jr 

inc 
and 

jr 
Id 

ei 



; Disable ints while debouncer being modified (16us) 
PPointPort, #PassPoint ; Test for pass point being seen 

nz, IncPPDeb ; If high, increment the debouncer 

PPOINT_DEB, #00000011b ; Debounce 3-0 

z, PPDebDone ; If already zero, don't decrement 

PPOINT_DEB ; Decrement the debouncer 

PPDebDcne 

PPOINT DEE ; Increment 0-3 debouncer 

PP0INT~DE5, #00000011E 

nz, PPDebDone ; If rolled over, 

FPCIKT_DE5, #0000001 IB ; keep it at the max. 

; Re-enable interrupts 





inc 


t!25ms 




; increment the 12 5 mS timer 




cp 


t 12 5ms, #125 




; test for the time out 




j r 


z, ONE2 5MS 




; if true the jump 




cp 


1 1 2 5ms , # c 3 




; test for the other. timeout 




call 


nz , 

FAULT E 


















pop 


F.r 








i ret 








OKE2 5KS : 












Cp 


RsMode, #00 




; Test for not in RS232 mode 




j r 


z, CheckSpeed 


If not, don't update RS timer 




dec 


RsMcde 


Count down RS232 time 




j r 


nz, CheckSpeed 




; If not done yet, don't clear wall 


S3 


1 0 






; Revert to charging wall control 


Cjih C X S *D 6€C • 












cp 


Rampriag, # ST 1 LL 




; Test for still motor 


o 


jr 


z, StopMctor 


If so, turn off the FET * s 




tm 


BLINK_KI , #10000000b 




; If we are flashing the warning light, 


jSSSS, 


jr 


z, StcpKctcr 


then 


don't ramp up the motor 




cp 


L_A_C, #:7£H 


Spec. 


ial case use the ramp-down 




j r 


z , K c nTic. j. R amp : .6c 




; when we're going to the learned up iim.i 




cp 


L_A_C, #07 OH 


If we're learning limits, 






uge , P. ur.F educed 




; then run at a slow speed 


K o rm air. amp F 1 


Cp 


Ramp Flag, #?AK?DOWK ; 


Test 


for slowing down 




i r 


z, S 1 owDown 




; If so, slow to minimum speed 


Speeder : 










cp 


Power Level, Max Speed 




; Test for at max. speed 




jr 


uge, SetAtFull 




; If so, leave the duty cycle alone 


RampSpeedUp : 








; Increase the duty cycle of the phase 




inc 


Power Level 








SpeedDone 




• 


^ «i» O *_> w trS ^ * • 












cp 


PowerLevel, MinSpeed 




; Test for at min. speed 




j r 


ult, RampSpeedUp 




; If we're below the minimum., ramp up to 






z, SpeedDone ; 


If we're at the minimum, stay there 




dec 


PowerLevel 




; Increase the duty cycle of the phase 




j r 


SpeedDone 




* 


RunReduced : 












Id 


RampFlag, # FULLS PEED 




; Flag that we're not ramping up 




cp 


MinSpeed, #8 ; 


Test 


for high minimum speed 




i r 






* 

r 






Fowe r Level , # r 




; Set the speed at 4 0* 




— ; V 


SpeedDcne 






F:we".-.:!-: ; - : 


















; Set power at higher minim—". 






SpeedDone 




* 



S- V - - ~ v- . 
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protection) 



SetAtFull 



SpeedDone : 



SixtySpeed : 



clr 



3* 
Id 

cp 
jr 

di 
s rp 

c 
Id 
add 
ace 
ldc 
Id 
ei 
i r 



PowerLevel 



SpeedDone 



; Make sure that the motor is stopped (FMEA 



Ramp Flag, #FULLSP£ED 

LinePer, #3€ 
uge, FiftySpeed 



; Set flag for done with ramp-up 

Test for 50Hz or 60Hz 

; Load the proper table 



; Disable interrupts to avoid pointer collizio: 
#RadioGroup ; Use the radio pointers tc do a ROM fetch 

po intern , *H Z GH . S? EE 0_TAF:LE_€0 ). ; Point to the force look-up table 
pcir.teri, # LOW , SFEEC_TA5LE_6C ) ; 

pcir.teri , PowerLevel ; Offset for current phase step 

pointerh, #00K 

addvalueh, @pc inter ; Fetch the ROM data for phase control 

FhaseTime, addvalueh ; Transfer to the proper register 

; Re-enable interrupts 
WorkCheck ; Check the worklight toggle 



Fi f tySpeed 



'0o rk Che ck 



Olontlnc : 



SKIFAVXLE 



c: 
c r c 
■ -« 

id 

add 

adc 

J- tvH 

id 
ei 

srp 

r: 

INC 



cc 



cp 



TEST FA 



INCLEARN 



Co:- 

clr 



di 

dec 
ct 

* 

dec 

inc 
cp 

ce z 



£Radi c Gr cup 
pcir.ter:. , v-.-^r. 
pointer!, * L DW , £ F EE 1 
pcinterl, PowerLevel 
p o i r. :eri, £ C 0 H 
addvalueh, C c p~ir.^er 
FhaseTime, addvalueh 



# LEARN EE GR? 



il n ah lev: or 



; Disable interrupts to avoid pointer ccllisic 
; Use the radio pointers tc do a ROM fetch 
I_TABLE_5 0; ; Foint tc the force leck-up table 

— ' — " IT C > 

; Offset for current phase step 

; Fetch the ROM data for phase centre 1 
; Transfer tc the proper registe 
; Re-enable interrupts 

; Re -set the RP 



EnabieWcr kLi ah t 



auxlearksv;, * : ff: 

ATX LEARN 5 Vi 

zzwin, ffh 

2 , TE ST FA 



Z. ^ ft • : , 

FAVLTE 
TI2 5MS 

£ 1 1 SAL LE 
nz, DC12 
S DISABLE 

ONEF2, #00 
2 , IN CLE ARK 
ONEF2 

learnt 
learnt , #CK 

learnt 



;Kas the button already been held fcr 10s 
;Wcrk light function is added to every 
; 125ms if button is light button is held* 
; f or 10s will iniate change , if net held 
; down will be cleared in switch routine 



; test for the rollover 
; if so then skip 
ease 



or 



test fcr the roil posit 
if so skip 

if not increase the counter 

; call the fault blinker 
; reset the timer 

; incrwease the second watch dog 

count off the system disable tir.er 
if not rolled over then do the 1.2 sec 
else reset to FF 



test for 0 

if counted down then increme 
else down count 

; increase the learn timer 
; test fcr overflow 



nt learn 



S K 1 1 



a. _ r. 



e i 
in 

CD 



eraset 
eraset , # OH 



increase the erase timer 
test for overflow 

t 0 skip back turni 



i f no 
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) 





dec 


eraset 


ERASETOK: 








pop 


RP 




i ret 




; fault 


blinker 




FAULTS: 








inc 


FAULT TIME 






L_A_C, #07 OH 




j r 


uit, DcFaults 




cp 


L_A_C, #07 1H 




jr 


z, Fa st Flash 


RegFlash : 








trr. 


FAULT 7 I ME , #00 




jr 


z, FlashOn 


FlashOf f : 








or 


ledport, #±eor. 




j r 


NO FAULT 


FlashOr; : 








and 


ledport, #iedl 




i r 


NOFAULT 


Fas t F_ as':. : 








*- rr 


FAULT?! XI , #■: C 




v~ 


7 ^~ " =. c: r\ ^- ~ 

FlashOf f 


LJ 0 T*** 2 11 — tl S * 








cp 


FAULT? I ME , ¥ r C h 


s ,")• 




r.z, FIRST FAULT 




cir 


FAULT TIME 




cir 


FAULT 


=.3BSS 


cu 

- ^ v 


FAULT CODE , #C5h 
UGE , GOT FAULT 




^ i~ 


cm:_leh, #offh 




— v 


n z , ?E S T AGE SM 




cp 


FAULT CODE , #G3h 




3 r 


z, GOT FAULT 


I"? 3 


Id 


FAULT CO EE , #0 3h 




jr 


FIR ST FAULT 


^ ^-£*Er"l^ W ^- * - • 








trr. 


aobsf, #0:0:0: : 




— ; >■ 

_J 


z r N CAGES FAULT 




W - ♦ i 

— -v 


A 0E S F , * 1 0 Z 0 I C 1 




1 C 


w _ / * % . . 




i r 


/~ f -\' T * ~ * * * * T 


* 


cp 


FAULT CODE , #G4h 


; 


j r 




; 


Id 


FAULT CODE, #04h 


; 


~» ■»* 


FIRST FC 


NOFULSE : 


trr. 


F3, #00000001:; 






Z r A 053 Sri 




cp 


FAULTCODE , # C I h 






2 , GOTFA" r ^ 




Id 


FAULTCODE , #0ih 




i r 


FIRSTFC 


AOBSSK: 


cp 


FAULTCODE, #02h 




jr 


z , GOT FAULT 




Id 


FAULTCODE, #G2h 






FIRSTFC 


GOT FA V IT : 








swap 


FAULT 
F~ ~.S~ ~ Z 


is s- _ _ r ^ . 








cir 


FAULTCODE 


FIRSTFC: 


and 


ACES F , #211111 



; increase the fault timer 
; Test for in learn limits mode 
; If not, handle faults normally 
; Test for failed learn 

blink the LED fast 



If so, 



; Toggle the LED every 250ms 



; Turn off the LED for blink 
; Don't test for faults 

; Turn on the LED for blink 



oscle the LEE ever v 1 2 5rr,s 



set t 



test for the end 
if net timed out 
reset the clock 
clear the last 
test for call dealer code 
he fault 

test the debouncer 
t set test aobs 

test for command shorted 
set the error 
set the code 



te 

if 
tes 

; -C 
A. — 

els 

set 
j_ f 

S 

if 
set 



- faults 



t for the skiped aobs p 
nc skips then nc 
t for any pulses 
no pulses find 
e we are intermittent 

the fault 
same got fault 
t the last fault 
same got fault 

the fault 



uj.se 



test the input pin 

jump if aobs is stuck hi 

test for stuck low in the past 

set the fault 

set the fault code 

test for stuck high in past 
set the fault 
set the code 



set the code 



; clear the fault code 
; clear flags 
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FIRSTFAULT 



trr. FAULTTIME, #00000111b 

jr nz, RegularFault 

incw HOURJTIMER 

tern HOUR_TIMER_LO, #00011 111b 

jr nz, RegularFault 

or AOBSF, #01000000b 



) 



; If one second has passed, 
; increment the 60min 

; Increment the 1 hour timer 
; If 32 seconds have passed 
; poll the radio mode 

; Set the 'poll radio' flag 



Re aula r r aul t 



Id 
cp 

cp 
jr 



FAULT , #00 

z , NO FAULT 

FA : J LT FLAG , # 0 F FH 

CodeFiag, #REGLEARN 



z , TES' 



FAULT, FAULTTIME 
ULE , TESTSOI 



; test for no fault 

; set the fault flag 

; test for not in learn mode 

; if in learn then skip setting 



trr. 

j r 

an; 



nz , 

ledt or t , le dl 



■time ,#00001000: 

T0N:l 



; test the 1 sec bit 



; turn on the led 



Stoke 



NAFAULT : 



c r 



ret 



ret 



~ T-. — - -V- fc ■ £L 



FAULT FLJ 



; turn off the led 



; clear the flag 



Four ms timer tick routines and aux light function 



f^ME? 4 MS : 



TESTPERIOL 



j r 

de c 
di 
clr 
cl r 
ei 

j- 

id 

cp 

j r 

* 

a: 

clr 

clr 

ei 

clr 

jr 

Id 

call 
de c 



RPMONES , # 



rfm_count 

B?.?M COUN' 



RPM7DONE 

RPMCLEAR, #00H 
nz , RPMTOCNE 
RPMCLEAR, #122 
RPM_COUNT, #50 

iin*- IT T. H ~ ". ' 

RPM_COUNT 
BRPM_COUNT 

FARE V FLAG 
RPMTDONE 

FAU LT C 0 LE ,#06 r. 



; test 



t. . f r — — ' > > ii v. .. - 

RE AS ON , # r OH 
SET _ AR E V_ S T A.T E 

RPMCLEAR 



fcr the end of the one sec 
sec ever then test the p* 
; ever the period 
; else decrease the timer 



1 1 me 
1 ses 



start with 



count c i 



0 



start with a count of 0 



f not 



test the clear test timer for 0 
timed cut then skip 

set the clear test time for next cycle 
test the count for too many pulses 
if toe man pulses then reverse 

clear the counter 
clear the counter 



clear the flag 
continue 



temp test 



^ "ui: flaa 



set the ± a 

set the forced up fic' 

rprr. forcing up motion 

; set the autorev state 

; decrement the timer 
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SKIPLIGKTE 



DONOTCB : 



RTOOK : 



SKIPRRTO: 



3-3 ; 



PRSeWtLCSEE : 



cp 

dec 

inc 

cp 

jr 

cp 

jr 

clr 

inc 
~t r 
de c 

cp 

j r 
inc 

cp 

jr 
C P 

tm 

cp 
dec 



cp 
j r 



LIGH7IS, #00 
z, SKIPLIGKTE 
LIGHT1S 

R_DEAU_TIME 
RTC, #RDRO?TIME 
ult, DONOTCB 
Code Flag, #LRN 
uge, DONOTCE 
Code Flag 



R70 

RF.TC, # OFFH 
z, SKIFRRTO 
RRTO 

SKIFRAIIC, # C'C 
nz, LEARN DB OK 
RsKcde ,£11 
nz, LEARN UHCK 
csr: rt , frcsrr.ask 



LEARN Dr, *C 

LEARN DE 
t ;r - z i--.- '"■V 



LEARN UE , #CFFH 
z, LEARN D50K 



; test for the end 



) 



; down count the light time 



test for the radio time out 
if not timed out dorrot clear b 
If we are in a special learn mode 
; then don't' clear the code flag 

; else clear the b code flag 



increment the radio time out 
if the radio timeout ck then skip 
back turn 

; test for roll 
; if so then skip 



; Test fcr EEPROM communication 
; If so, skip reading program switch 
; Test for in RS232 mode, 
don't update the debouncer 
Test fcr program switch 
switch is closed ccunt up 
test for the non decrement point 
t end skip dec 



; test for debouncer at max. 
if not at max increment 

; increase the learn denounce timer 



LE?fhN35 0K: 

; ^JJK OBSTRUCTION OUTPUT ANU LIGHT FUN'' 



AUM^flG; 
tei^l 1 



cn : 



t — i: 1 



cp 

j r 

cp 

j- 

xc r 

— — . 

NOIS: 

cp 

jr 

cl r 

dec 
j r 

cp 

"i r 
_/ 

; 7og 

cp 

jr 

TurnltOf f : 



TurnltCr. : 



ElinkUcne 



.ASH 



z , de c_l icht 
z,N01S 

light: s, #: 

nz, NO IS 

P o, #k:rkl:gh' 



FLASH_FLAG , * 
nz, dec_light 

FLASK_DELAY 
nz , dec light 



STATUS, #RSSTATUS 
z , BiinkDone 
gle the wall centre! LEU 
STATUS , # WALLOP F 
z, TurnltOn 

ElmkUcr.e ^ 



test fcr no flash 
if not skip 
test fcr timeout 
if not skip 
toggle light 
one shot ed 



Keep the vacati 
250 ms period 



f las 



n timer 



r- * * 



; Test for in RS232 mode 
; If sc, don't blink the LED 

; See if the LEU is off or on 



Turn the licht off 



c~ i ■ 



- / 



£ - - - 



SWITCH Di-LAU, tf 



CMC 



; Turn the light en 
•EL EX ; Reset the delay time fcr charge 
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dec 
clr 

dec light : 



exit_light : 
ret 



) 



FLASH_COUNTER 
nz , dec_light 
FLASK FLAG 



cp 


LIGHT TIMr-K h*, nut t h 


, lcSl ioi tne Limer ignore 


jr 


z,exit light 


; if set then ignore 


tm 


TOEXT , #00010000b 


; Decrement the light every 8 ms 




nz, exit_light 


; (Use TOExt to prescale) 


decw 


LIGHTJTIMER 


* 




nz, exit light 


; if timer 0 turn off the light 


15 j*™) 


pC, # ■ -LIGHT_OK; 


; turn off the light 




L_A_C , #00 


; Test for in a learn mode 


jr 


z, exit light 


; If not, leave the LED alone 


clr 


L_A_C 


; Leave the learn mode 


or 


ledport , * ledh 


; turn off the LED for program mode 



; return 



; MOTOR STATE MACHINE 



MOT 3 DEL 



S?gTEMACHI!v 

•5 cp 

U) j r 

DONE ; 
xor 
cp 

jP 
cp 



cp 

jp 

cp 

jp 

cp 

3P 
cp 

j r 

cp 

jp 
jP 



MOT DEL, #0FFH 
Z , MOTDELDONE 
MOT DEL 

p2 , # FALSE IR 
DOG 2, #E 
uct , START 
STATE, #6 

v^*- C *~ ^ 
c *■ <*■* 

STATE , #3 

z , start 

STATE , # 0 

z , aut c_rev 

STATE , #1 

z , up__di recti c: 

STATE , *2 

z , up_posit icr. 

STATE , *4 

z r dr. ci re c tic: 

dr. pes it icr. 



Test for max. motor delay 
if do, don't increment 
update the motor delay 

; toggle aux output 

; test the 2nd watchdog for problerr. 

; if problem reset 

; test for legal number 

; if not the reset 



s tci 



TTi ^ T ^ T * 



test for legal number 

; if not the reset 

test for autorev 

auto reversing 0 

test for up 

; door is going up- 1 

test for autorev 

door is up 2 

test for autorev 

; door is going down 4 

doer is down 5 



AUTO Rr,V ROUT IN — 



auto_rev : 
cp 

jr 
and 
clr 
LEAVEREV : 
cp 
jr 

AREVOFF : 

and 

ARE VON 1 : 

KDT 
cal. 



FARi. V FLAG , # 0 £ r H 
nz , LEAVEREV 
pO, # LOW ( - W ORK L I G H ' 
FARE" FLAG 

MOTDEL, #:0 
ult, ARE VON 



; test for the forced up flag 

; turn off light 

; one shot temp test 

; Test for 40 ms passed 

; If not, keep the relay on 



pO, #LOW (~MOTOR_UP & -MOTOR_DK) ; disable motor 



K0LDFRE7 



kick the dog 

hold off the force reverse 
fcrce the licht on r.c rlin!-: 



dec 
de c 
ei 



AUTO_ DELAY 
BAUTO DELAY 



; wait for .5 second 



; wait fcr 



second 
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j r 


n z , ars witch 


or 


p2 , # FALSE 1 R 


; LOOK 


FOR LIMIT HERE (No) 


Id 


REASON, #4 OH 


cp 


L_A_C, #0"7 5K 


3P 


nz , SET_UP_N05LINK 


Id 


L AC, #C76K 


jF 


SET_UF_NOEL:NF 


^5 i^ki ^ ^» # * • 




Id 


REASON, *C ?H 


ci 




cp 


SK_DATA, # CKI SW 


cl r 


SW_DATA 


ei 




jP 


z, SE7_S?0?_STATE 


Id 


REASON, # :CH 


cp 


radio cm:, *daah 


DP 


2, SE7_STCF_STA7E 




b * 



; test switches 



; set aux output for FEMA 



; set the reason for the change 
Check for learning limits, 
If not, proceed normally 

; set the state 

; set the reason to command 

; test for a command 



; if so then stop 

; set the reason as radio command 

; test for a radic command 

; if so the stop 

; return 



HOL^#RE* 



1 

- 

cl 
cl 
ei 
re 



RPMCNES, #14 4 

r pmc lear , ±111 

rf:-:_cc"nt 
br pi*: count 



set the held off 

; clear rpir. reverse .5 sec 

; start with a count cf 0 
; start with a count of C 



DOOR GCIN" Vr 



up_I§l recticr. 

re t 
UpReady : 

call 

id 

end 



0ne?£5£ 5" 
z , UpReady 



HOL-FR*E\ 



FLA 3 , * 



; kick the dog 

; Test fcr the memory 

; If sc, continue 

; Else wait 



read on e - s h z z 



; hold off the force reverse 
; force the light on nc blink 
; disable down relay 



or 
cc 

* 

CherkVtrlir. 
anc 
Id 

oecw 

tm 

jP 



pC, *LIGH7_ON 
MOT DEL , *:C 
ule , UPOFF 

p2k_skaoow, #~elik?:_f:k 
f2m, p2m_shad0w 
f: , *ei:n: _?::: 

ELINK 

bl:n>'_k:, #:oc c-oocot 

2, NctUpSlow 



; turn on the light 

; test for 40 milliseconds 

; if not timed 

; Turn on the blink output 

; Turn on the blinker 

; Decrement blink time 

; Test for pre-travel blinking done 
; If not, delay normal motor travel 



UPON 



or pO, # (MOTOR_UP I L-IGHT_ONi ; turn on the motor and light 



sr. 



r . J — 



nz , £K.r. r 
r r A Z Z _ N - , ' - _ 

Ct>*~TT — - ■ 

favltccde, = 



; test fro the end of the fcr 
:t donot test rDmcour.t 



I- c 



test fcr less the 



pu.se s 
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cp 


FORCE_IGNORE , #00 


jr 


nz, test_up_sw_pre 


TESTED P_FORCE 


* 






dec 


RPM TIME_OUT 


dec 


BRPM_TIME_OUT 


ei 




jr 


z, f ailed_up_rpm 


cp 


Ramp Flag , #RAKrxP 


jr 


z, tes:_up_sw 


TestUpFor cePo 


^ • 


di 




cp 


RPK_PERIGI_HI , UF_FORCE_ 


jr 


ugt, f ai led_up_rpm 


jr 


ult, test up_sw 


cp 


rpm_period_lo, up_force_ 


jr 


ult, test_up_sw 


failed up rpm 


* 
• 


Id 


REASON, #2 OH 


cp 


L_A_C, #07 6H 


DP 


nz, SET_STOF_STATE 


Id 


L A C , # J / / r. 


jF 


SET_STOF_STATE 


t e^r _u e_s w_p r 


e : 






dec 


FORCE_ IGNORE 


iTf dec 


E r Or. I GN ^l-v r. 


te«t uc 5 w : 




sTf c i 




yy id 

s—-- 1 d 


lik_test_h: , pcsition_ki 


LIK_TEST_LO, PCSITION_LC 


£ sub 


LIM_TEST_LO, UP_LIKI7_LC 




LIM TEST HI, UF LINIT__HI 


cp 


position_h: , # :bch 


r j r 


uc:, Up Pes >'.r. c w r. 




POS I T I ON_H I f #050 H 


=L K J 


ult, UpFcs Known 


■rf * e i 




U p&p sUnknowr.: 




"ff sufc 


LIK_TES7_LC, # 0€2H 






3"™a add 


LIK~T r S7~LC, DN L " ?• *C 


ad: 


LI K TEST HI, " L I K I T H 1 


Up Pes Know- : 




ei 




cp 




jr 


2, tes t_up_time 


cp 


LTV TE C ~ t -" #-'" 


jr 


nz, TestFcrPast'Jc 


cp 


LIM_TEST_LC, #00 






TestForPastUp 




tn. 


j~ i r*.. » c . h — . , ii ^ . v j ^ v ^ 


close ) 




j r 


2, get_sw 


AtUpLimi t : 




Id 


REASON , #5 OH 


cp 


L_A_C, #0 /2h 


jr 


z, ReLearnLiir* 


cp 




jP 

Id 


nz, ~SET_UF_POS_STATE 
LAC, #07 7H 


Re Lea rr. Lir. : 




l_a_:, 




£■ " T "'■^'w w - . z_ 



; test timer for done 

; if timer not up do not test force 



decrease the timeout 

; decrease the timeout 



; Check for ramping up the force 
If not, always do full force check 

; turn off the interrupt 
Test the RPM against the force setting 



set the reason as force 
If we're learning limits, 
then set the flag to store 



Calculate the distance from the up limit 



'est for lest door 

; if not lest, limit test is done 



Calculate the 
f rem the floo 



t r s v e 
when lost 



-l ci stance a - i owe a 



f we're oositionina the doer, foraet the 1 
; and the wall control and radio 
; Test for exactly at the limit 
; If net, see if we've passed the limi* 



; Test for a negative result (past the limit, t' 

; If so, set the limit 

; set the reason as limit 
If we're re-learning limits, 
jump 

If we're learning limits, 

; then set the flag to store 



get sw: 



cp 
jr 



* 0 



2 , NotUoSI ow 



'est for positioning the up li: 
; If so, don't slow down 
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} 



TestUpSlow : 
cp 
jr 
cp 

UpSlow: 

Id 

NotUpSlow : 



LIM TEST_HI, #HIGH (UPSLOWSTART) ; Test for start of slowdown 

nz, NotUpSlow ; (Cheating — the high byte of the 'numbe 

LIM_TEST_LO, # LOW (UPSLOWSTART ) 

ugt, NotUpSlow ; 



r is zero) 



RampFlag, # RAMP DOWN 



Set the slowdown flag 



Id 


REASON , # 1 OH 






set the radio command reason 


cp 


RADIO CMD,#0AAH 




* 


test for a radio command 


"if 


z,SE7 STO?_STATE 






if sc stop 


— * 


REASON" , #0 0H 




/ 


set the reason as a command 


di 










cp 


SW_DATA, #CMD_SW 




t 


test for a command condition 


clr 


SW DATA 








ei 










i r 


ne, test up time 








i c 


SET STOP STATE 




* 




test up time 










~ 16 


REASON", OH 




* 


set the reason as a time out 


decw 


MOTOR TIMER 


; de 


crement motor timer 


j c 


z, SET_STCF_S7ATE 








exit up cir : 
















m 
t 


re r uT tc caller 


; 'Hz DOOR I 


J? 








:i; 










ur s rJc c t i c ^ : 










L.= WDT 

S3ESS 






• 


kick the dog 


"s=t. Cp 


FARE V FLAG , # 0 8 6 K 




* 

9 


test for the forced up flag 


4^ -i r- 

; J ~ 


nz, LEAVE LIGHT 










pC #low (-worklight: 




rr. c 


ff light 


— , — V 


UrNC FLASH 






skip clearing the flash flag 


LEA£~~ tqu- . 










La Id 


L I GHT FLAG ,#00 K 






allow blink 












i y cp 


MOTDEL, #10 






Test for 40 ms passed 




uit, UPLIMON 


; If 


no ^ 


, keep the relay on 














pC , *LOW '> M0TO?_7F & - MOTOR 


_DN • 


* 


disable motor 












cp 


^ ^ , P ^ j r. 




we ' 


ve begun the learn limits cycle, 


- >- 


^ <* * - - ^ c 
^ / * jf\ 'w <* r' ^ W *— 






then delay before traveling 




S W_ D AT A, * LI GHT_S W 




r»V, - 


sw debounced? 


— V 

1 _ 


z, wcrk up 




B 




1 d 


REASON , # 1 OH 




* 

/ 


set the reason as a radio corn.- and 




RADIO CMD, #0AAH 




1 


test for a radio cmd 


J - 


z , SETDNDIRSTATE 




t 


if so start down 


Id 


REASON , # 00K 




$ 


set the reason as a command 


di 










Cp 


SW DATA, #CMD_SW 




t 


command sw debounced? 


cir 


SW_DATA 








ei 










~, >* 


z, SETDNDIRSTATE 




4 
/ 


if command 


ret 










SETDNDIRSTAT 


y • 








Id 


ONEF2 , #10 




• 

t 


set the 1.2 sec timer 


DP 


SET_DN_DIR_STATE 








LACUPPOS : 










. — ^ 


K , — T y £ - u - i ~ ^ ^ 2_A TT 


I ME ; 


Make sure we're set tc the ;r::er tir 




u»e, wC-_ iTie ^ .". 








*■ r-- 


MOTOR TIME?. HI, #HIGH { LACT 


IMF ; 








koto?_time?_l: , ?lo>; .laoti 








U. TTl-3 - . 










decw 


M0TOR_TIMER 




* 

r 


Count down more time 




r .— t uir s ret 




t 


If net timed out, leave 



C»- - v — 7 £. <— r*. ,-. . 
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Id 

cl r 

clr 

clr 

clr 

Id 

jp 



L_A_C, #074H 

UP_LIMIT_HI 

UP_LIMIT_LC 

P0SITI0N_HI 

POSITION_LO 

PassCounter, #03 OH 

SET DK DIR STATE 




; Set state as traveling down in LAC 
Clear the up limit 
and the position for 
determining the new up 
limit of travel 
; Set pass points at max. 

; Start door traveling down 



work_up : 

xor 

Id 

ana 

up_pcs_re t : 
ret 



pO, #WORKLIGHT 

lightjtike?_h:, * 
sk data, #low ->l! 



; toggle work light 
; set the timer ignore 
SK ) ; Clear the workiight bit 

; return 



DOOR GOING DOWN 



dr._direction 
WDT 
cp 

ret 

DovgsRea cy : 
yg call 

,ZZ c 1 ^* 
yu id 

BT.Z 



or 
cp 



OnePass, STATE 
z , DownReac v 



HCLrFREV 

FLASH_FLAG 

LIGHT FLAG , # LIGH' 



p. , #LOW ;-k 



0 - Or. a 



pC, #LIGKT_ON 
MOTDEL, #10 
ule, DNOFF 



; kick the dog 

; Test for the memory read one-shot 

If sc, continue 
; else wait 

; hold off the force reverse 
; turn off the flash 
; force the light on no blink 
turn off motor up 

; turn on the light 

; test for 40 milliseconds 

; if not timed 



Che c k Dnr 1 i r. k : 

y. and P2K_SHALO>;, p-bzzi;: 

P2K, P2K SHADOW 



5*1 5 



Id 
or 

decw 
tm 



P2, #5LINK_PIK 
BLINK 

blink_h: , #ioc 

2 , NctDnSlcw 



fik 



Turn on the blink output 

Turn on the blinker 
Decrement blink time 
Test for pre-travel blink done 
i not, don * t start the motor 



DN&£ : 



cr 

DNOFF: 

cp 

j r 
cp 

3 r 
Id 

SKIPDNRPK: 
cp 

3* 



pC , # iK0TO?._r*:; l: 

FORCE_ I GN ORE , #C 1 
nz, SKIPDNRPK 
RPK_ACOUNT, #C 2H 
ugt, SKI FDK ?.?!•: 
FAULTCODE, #0 5h 

FORCE_IGNORE, #11 
nz, tes:_cr._sw_pre 



ON. ; turn c r. the meter and light 

; test fro the end of the force ignore 
; if net donot test rpmcount 

; test for less the 2 pulses 



; test timer for done 

; if timer not up do not test force 



TEST DOWN FORCE: 



di 

dec 

dec 

ei 

jr 

cp 

di 



1 r 
cp 



RPM_TIME_OV7 
BRPK_TIME_0'OT 

z, f ailed_dn_rprr. 
RampFlag, #RAK?UP 



ere 



test dr. s>: 



ug 

ult, tes t_cr. 

r?k_fer:cc_l 

ult, test dr. 



; decrease the timeout 

; decrease the timeout 



; Check for ramping up the force 

; If net, alwavs dc full force check 



; turn off the interrupt 
the RPX against the force setting 
>c slow then force reverse 
; if faster then we're fine 



■C 4- 
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f ailed_dn_rpm: 

cp LAC, #074H 



DP 
tin 

jr 
trr; 
jr 

DnRPMRev : 
Id 
cp 

DP 
cp 

DP 
di 

Id 

Id 

€2 

DP 

DnLearnRev 
Id 

DP 



z, DnLearnRev 
FOSITION_HI , #iiOO0OOOb 
nz, DnRPMRev 
LIM_TEST_HI , #1000000 Ob 
nz, DoDownLimi t 

REASON, #2 OH 
POSITION_HI , #0S:-H 
ugt , SET_ARE7_ STATE 

pes : t i on_h i , t'jtz h 

ult , SET_ARZY_STATE 

POSITION_KI, #07FK 
POS I T I OK_LC , #09 0 H 

SET_AREY_STATE 

L_A_C, #G7SH 
SET ARE*/ STATE 



; Test for learning limits 

; If not, set the state normally 

; Test for below last pass point 

; if not, we're nowhere near the limit 
; Test for beyond the down limit 
; If so, we've driven into the down limit 

; set the reason as force 
; Test for lost, 
; if not, autoreverse normally 



; Disable interrupts 
; Reset lost position for max. travel up 
* 

; Re-enable interrupts 



; Set proper LAC 



tegl;_dr._sw 

' ~* " dec 
dec 

ijV D r 
■ " cp 



_pre 



FORCE_ 
BTORCl 



IGNORE 



n fc * * I i L ^/ *W "V w> 

U Id 

•as? , ^ 

p> It ■> 

i SB j sbc 



Cp 

D r 

DcDownLirr.it 
Id 
cp 
D r 
Id 

j r 

TESTRADIO: 
cp 

cp 

Id 

TESTFORCEIG 
cp 



J h- 

t - - , « B 

a r. ; 
DP 

cp 



POSITION_KI , #C5CK 
ult , TestDnLimGood 
POSITI ON_H I, # GEO H 
ul i , KctDr.S 1 e w 

lim_test_hi , dn_likit_h: 

lik_test_lc, dn_limit_l; 

lik_test_lo, positional; 

lik test ki, position k: 



L__A_C , #C7CH 

uge , tes t_dr._t irr.e 

lim_test_h: , *: : : 

z, caii_sw_dn 
LIK_TEST_LC , # '11 
■ucrt , Net Dr. S lev; 



REASON, #S0H 
CMD_DEB, # 0FFH 
nz, TESTRADIO 
REASON , #90H 

TES i t Of-^L X vj; 

LAST_CMD, #CO 
nz, TESTFORCEIG 
CodeFlag, #3RECZIV; 
nz, TESTFORCEIG 
REASON, #0A0K 

FORCE_IGNORE, #00K 
z , NOAREVDN 



; Test for lost in mid travel 

; If so, don't test for limit until 
; a p r cpe r pass point is seer. 

; Measure the distance to the down limit 

i 

4 
/ 



; If we * re in the learn cycle , forget the 1 imi t 
; and ignore the radio ana wall centre 1 
; Test fcr a negative result ipast the cow 

; If so, set the limit 

; Test fcr 3 6 pulses (3") beyond the limit 

; if not, then keep driving into the floor 

; set the reason as a limit 

; test for the switch still held 

♦ 

; closed with the control held 



; test for the last command being radi 
; if not test force 
; test for the b code flag 

■ 

; set the reason as b code to limit 



or" c — r, " ~ 



p0, #LOW ,-KCTC?_D: 
SET DN PCS STATE 



; test the force ignore for done 

; a rev if limit before fcr 
; early limit 
; set autoreverse 



rce enabled 



LI I*: 



r c* 



I , Pr.lZ-r. ;dnslowstar' 



; set the state 



; Test for start of slowdown 
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D r 
cp 

DnSlow : 

Id 

NotDnSlow: 
Id 
cp 

DP 
Id 

di 

cp 
cl r 

ei 
jP 

test_dn_time 
Id 

de:w 
jP 



nz, NotDnSlow 

LIM_TEST_LO, # LOW { DNS LOW START ) 
ugt, NotDnSlow 



{Cheating — the high byte is zero) 



RampFlag, # RAM? DOWN 

REASON, #10H 
RADIO_CMD, #CAAH 
Z, SET_AREV_STATE 
REASON, #00K 

SW_DATA , #CK~_SW 
SW_DATA 

Z, SET_AREV_STATE 

REASON , #7 OH 
MOTOR_T I ME R 
z, SET AREV STATE 



; Set the slowdown flag 

; set the reason as radio command 

; test for a radio command 

; if so a rev 

; set the reason as command 

; test for command 



test_obs_count : 

cp OBS COUNT , # 00 



i r 
cp 

ZZ ir 
4j cp 

lI 3 r 
OSSAREV : 

Id 



nz, ex::_ar._c:r 

FOR CE_ IGNORE , #(ONE_SEC / 

ugt, ex i t_cr._ii r 

LAST_CHL , #00 

2 , OES TESTE 

CKD_DEE , #CFFH 

nz , OBS AREV 



ex:t_cr._air 

FLASH_FLAG, # OFFH 
FLASH COUNTER, #2 0 



3P 

OMTESTE : 

i y cp 

o ^ r 

ex4t_cr._ai 

:e: ret 



FLASH EE LAV , #FLAS 
REASON , #2 OH 
SET_AREV_ STATE 

CodeFlaa, #BREGEIV 
nz , OBS AREV 



; set the reason as timeout 
; decrement motor timer 



; Test the obs count 

; if not done, don't reverse 

2) ; Test for 0.5 second passed 

; if within first 0.5 sec, ignore it 
; test for the last command from radio 

; if last command was a radic test b 

; test for the command switch holding 

; if the command switch is not hcldi: 

; do the autorev 

; otherwise skip 

; set flao 
; set for 10 flashes 

; set for .5 Hz period 

; set the reason as autoreverse 



; test for the b code flag 
if not b code then arev 

return 



DOOR DOWN 



cn_pos i 1 1 o 
WOT 
cp 

and 



FAREVFLA3, #06eH 
nz, DNLEAVEL 
p0,#LOW i-WORKLIGK* 
DNNO FLASH 



; kick the dog 

; test for the forced up flag 

f 

; turn off light 

; skip clearing the flash fla< 



DNLEAVEL: 

1 c 

DNNOFLASH : 

cp 
jr 

DNLIMOFF: 

and 
DNLIMON : 



1c 



di 
cp 



L I GHT_ FLAG , # OCH 

MOT DEL , #10 
ult, DNLIMON 



; allow blink 

; Test for 40 ms passed 
; If not, keep the relay on 



pO, #L0W ( ~MOTOR_UF & -MOTOR_DN) 



; disable motor 



reason7#:oh 

cr 1 — z - * ^ Q~ 
REASON, #0CH 

SW DATA, #CKT SW 



; denounced? liaht 



set the reason as a radio comma n: 
test for a radic command 
if so gc up 
; set the reason as a command 



; command sw pressed 
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) 

clr SW_DATA 
ei 

jr z, SETUPDIRSTATE ; if so go up 

ret 



3ETUPDIRSTATE: 

Id ONEP2,#10 



jF 



; set the 1.2 sec timer 



SET UP DIR STATE 



:ork_dn : 

xcr 
id 

T~ ^ 

in_pos_ret 
ret 



pO, #W0RKLIGH7 
LIGHTJTIKER HI , # OFFH 
SW DATA. 



LOW 



-.7 T Q U — 



sv; 



; toggle work light 
; set the timer ignore 
Clear the worklight bit 

; return 



STOP 



WDT 
cc 

* 

J - 
a r. c 

.EAvStOF : 



TCF^FLAS 



r " j r 

tTOF^lDCFF 
=^ and 



jF 



£J c 1 : 
ei 
■ j r 
re: 

r- -r \r c *■ r~ ; 

xc: 

Id 

anc 

st op_ret : 
re* 



FARE V FLAG, PZ-Stri 

p?, -fcLDw ~w:r:<l: 



L I G K T_ FLA 3 , * 0 C' H 
KOTDEL, #IC 



kick the dog 

test for the force 



d up flag 



^ ^ _ JT 



pC, #LOW (-MOTC?_D? & -MDTO?._DN: 



reason, #1ch 
rad:o_cmd, *caah 

z, S E T _ DN _ D I R_ STAT 
REASON, #CCH 

sw_data, * c:-::_sv; 

SV; DATA 



z, SI' 



pG, # K ORKL I GH 7 

light_t:mfp_h: , * off. 

SV; DATA, LOV; ^IIGH 



HD' ■ " - 

/ ^ Sh* 



; if so 



allow blink 

Test for 40 ms passed 
If not, keep the relay on 

disable motor 

need? light 

set the reason as radio command 
rest for a radio command 
go down 

set the reason as a command 
command sw pressed? 



; if sc a: cow: 



; toggle work light 
; set the timer ignore 
Clear the worklight bit 

; return 



SET THE AUTOREV STATE 



SET_AREV_STATE : 
di 
cp 



cp 



j ~ 



L_A_C, # 07 OH 
uge, LearningRev 



POSITION_HI , #02 OH 
ult, DcTheArev 
F C 5 1 7 I 71 - HI, c 1 1 ~ H 
ucz , DcTheArev 



; Test for learning limits, 

; If not, do a normal autoreverse 

; Look for lost postion 

; if not, proceed as normal 
; Look for lost postion 

; If not, proceed as normal 



;,::.erw.se, we're 
cp REASON, -K2CH 

jr uge, DcTheArev 

*- — ^ * — 



; Don't respond to command or radio 
; Throw out the radio command 
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ei 
ret 

DoTheArev : 

Id 
Id 
clr 

j r 

LearningRev 

iz 

Id 
clr 
cp 
jr 
cp 

GoodLearnArev : 



; Otherwise, just ignore it 



STATE , #AUTO_REV 
RampFlag, #STIL: 
PowerLevel 
SET ANY 



STATE, #Al-TC_REY 
RampFlag, #57 ILL 
PowerLevel 
L_A_C, #0"5H 
n2, ErrerLearnArev 
PassCounter, #C?0H 
2, ErrorLearnArev 



if we got here, then reverse motor 
Set the FET's to off 

Done 



if we got here, then reverse motor 
Set the FET's to off 



Check for proper reversal 
If not, stop the learn cycle 
If we haven't seen a pass point, 
; then flaa an error 



■ - »«*:r- - - 1 *- — — 



KCSS 



s 



cp 


POSITION_KI, 


#00 




3 r 


nz , DnLimGoo 






cp 


pcsiticn_lc, 


#2 : 




j r 


ult, Mo ve?a s 






and 


FassCounter , 


« C C ' ' 




irr. : 








di 










DN LIMIT HI, 


PCSITI 




Id 


DK LIMIT LC, 


PCS IT I 


>~\^ * 


add 


DK LIMIT LC, 


#01 




adc 


D!C lim:t_hi, 


#o: 






SET AKY 






earnArev : 








L_A_C, ¥Z^l~ 






J * 


set_a::v 






ss Point 


• 






cp 


PassCounter , 


#02FK 




jr 


2 , ErrcrLear 


nA r e y 




di 








add 


POSITION LO, 


# low ; r 




adc 


POSIT ION_K I , 


# H I GH 




add 


T JF LIMIT LC, 


#lcv; ? 




adz 


UF_LIMIT_HI, 


#HIGH 




ei 








or 


PassCounter , 


# 0 1 1 * * 




i r 


GotDnLim 







; 20 



; I f 



; Set 



; Test for down limit at least 
pulses away from pass point 

net, use the upper pass point 

; Set at lowest pass point 

the new down limit 

Add in a pulse to guarantee reversal off the clock 



; Set the error in lea mine state 



; If we have only one pass point, 

; don't allow it to be this close to the fioo. 



LSE £ ' 

:r c 

" C7 C 



Use the next pass point up 



Set pass counter at 



SiiT Si Or STATE: 



di 






cp 


L_A_C, #0*7 OH 


; If we're in the learn mode, 


J- 


uge, DoTheStop 


; Then don't ignore anything 


cp 


POSITION_HI , #02CH 


; Lock for lost postion 




ult, DoTheStop 


; If not, proceed as normal 


cp 


POSITION_HI , #0D0K 


; Look for lost postion 


jr 


ugt, DoTheStop 


; If not, proceed as normal 


; Ot 


herwise, we're lost 


C Q OF"!! 7 " » *^ e 


cp 


REASON , * 12 I H 


; Don't respond tc command or radic 




uae, DcTheStcr 






FA I IC CM I 




ei 




; Otherwise, just ignore it 



ret 

DoTheStop : 
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J 

Id STATE r #STOP 

Id RampFlag, #STILL ; Stop the motor at the FET's 

clr Power Level ; 
j r SET_ANY 



SET THE DOWN DIRECTION STATE 



SET DK DIR STATE: 



Id 

call 
trr. 

Id 
Id 



blink_hi , #C-FFK 
LookFcr Flasher 
F2, #5LINK_PIN 
nz, SET_DN_NOELINK 
BLINK_LO, # OFFH 
BLINK HI , #0IK 



; Initially disable pre-travel blink 
;Test to see if flasher present 
;If the flasher is not present, 
; don 1 1 flash it 

;Turn on the blink timer 



SET DN NOBLINK: 



di 
Id 

Id 
Id 

cl : 



RampFlag, #RAMPUF 
Power Level, #4 

T™ 1 * 7~ T ' *■ '** 



Set the flag to accelerate motor 
Set speed at minimum 
energize door 

cne she: the forced reverse 



cc 

DP 
cp 

jP 



Lose Dr. 



L_A_C, #D"?0H 
uge, SE7_ANY 



position_hi , #c 
ult, set_any 

POS I T I ON_K I , # 0 b j r. 
uct, SET ANY 



r ? n u 



t n r, u 



If we're learning the limits, 

Then don't bother with testing anything 

Look for lost postion 

If not, proceed as normal 

Lock for lost postion 

If not, proceed as normal 



cp 

i r 
tm 
j r 
tc: 
i r 



FirstRun, #0C 
nz, SET_ANY 
FassCcunter , #011111 
z , SE7_UF_DIR_ STATE 
P s s s w c ^n t. e r , ^ _ — _ — j. 
z, SET_UF_DIR_S7A7E 

set any 



lb 



If this isn't our first operation when lost, 

; then ALWAYS head down 

; If we are below the lowest 
pass point, head up to see it 

; If our pass pcint number is se: at -I, 
then go up to find the position 

; Otherwise, proceed normally 



SET THE DOWN POSITION STATE 



SET_DN_POS_STATE : 
di 

Id STATE, # DISPOSITION ; load new state 

Id RampFlag, #STILL ; Stop the motor at the FET 1 s 

clr Power Level ; 
jr SET ANY 



SET THE UP DIRECTION STATE 



SET UP DIR STATE: 



Id 

call 
tm 

Id 
Id 



BLINK_HI, #CFFH 
Look For Flasher 
P2, #BLINK_PIN 

T.z, S Z T_U F _N OB 1 1 NK 
ELIN*\_LC , # OFFH 
ELINK HI, #0IH 



; Initially turn off blink 
;Test to see if flasher present 
;If the flasher is not present, 

;dcn't flash it 

; Turn on the blink timer 



SE' 



di 

^ * 

± c 



Rarr.pFlag, trJ>2<?' 
Power Level, £4 



; Set the flag tc accelerate tc max 
; Start speed at minimum 
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Id STATE, #UP_DIRECTIOII 

ir SET ANY 



SET THE UP POSITION STATE 



SET_UF_POS_STATE : 
di 
Id 
Id 



clr 



STATE , #UP_PCSITION 
RampFlac, #STILL 
Power Level 



; Stop the motor at the FET ' s 



SET ANY STATE 



SET_ANY : 

an; 
Id 



P2M_SRADOK, #-BLINK_FIN 
P2M, P2M_SHADOW 
P2, # -BLINK FIK 



Turn on the blink output 
Turn off the light 



cp 
j r 

PreFPeint : 
c *■ 

Noilre ??c i r.t : 

pi and 
PrjE|F Feint Dene 



PPOIN7_DEB, #2 
ult, NoPreFPc:: 



PreFPei 



:.:er, £ 



FassCcunter, *CIlI2Ilit 



Id 
Id 
di 
clr 
clr 
id 
Id 
Id 
Id 
Id 
ei 
di 
ct 

* 

j r 
push 

push 

Id 
sub 

cp 

jr 

cp 

Door I sShort : 
Id 

DoorlsNcrir. : 
Id 

DoorSet : 

pop 

pop 

id 

Met crTir.eSet 
e i 
clr 
clr 
Id 



FirstRur. , #0rrK 
BSTATE , STATE 

RPM_C0UN7 
BR?M_C0UN7 

A T J T C _ D E LA Y , #A"7 2_REY_TIME ; se' 
BAUTO_DELAY, #AUTO_REY_TIME ; 
FORCE_ IGNORE , #ONE_SEC 
B FOR CE_ IGNORE , #ONE_SEC 
RPK PERIOD HI, # CFFH 



; Test for pass point being seen 
; If signal is low, none seen 

; Flag pass point signal high 



; Flag pass point signal low 



; One-shot the first run flag DONE IN MA 
set the backup state 



IK 



clear the rpir. counter 



he .5 second auto rev timer 



set the force ignore timer to one sec 
set the force ignore timer to one sec 
Set the RPK period to max. to start 
Flush out any pending interrupts 



L_A_ 
uge, 



C, #07 OH 

Lc ?-_ - ^ v ~ t ^ c v - - ^ - 



LIK_ 
LIM_ 
LIM_ 
LIM_ 
LIK_ 
LIM_ 
uct , 
ult, 

ugt , 



TEST_LO 

test_hi , dn_limit_k: 
tes7_lo, dk_limi7_lc 

TES7_LO, r J?_LIMIT_LO 

test_h:, up_limit_hi 
tes7_ki, #kigh (shortdoor) 

DoorlsNorr. 
Door IsShcrt 
TEST LO, #L0a ; SHORT DOOR ) 



If we are in learn mode, 
den't test the travel distance 
; Save the limit tests 

9 

Test the doer travel distance tc 
see if we are shorter than 2 . 3M 



DoorlsNorm 



If we are shorter than 2.3M, 

then set the max. travel speed to 2/3 

Else, normal speed 



MaxSpeed, #11 
DoorSet 

MaxSpeed, #20 ; 

LIM_TEST_LO 
LIM TEST HI 

y ^. - "^-yr: w - * *-' ~ ~ "-' " T.* O ~ — ■ 
MOTOR~TIKER~LD, #LOK (MOTOR? I ME 



; Set the max. speed to 2/3 



; Restore the limit tests 



RADIO_CMD 
RPK_ACO'JK7 
STACKREASON, REAS-^. 



; one shot 

; clear the rpm active ecu: 
save the temp reason 



iter 
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Id 


STACKFLAG, #0FFh 




■ 


set the flag 


TURN ON LIGHT 


* 










call 


SetVarLight 




; Set the worklight to the proper value 






PO, #LIGHT_ON 




; If the light is on skip clearing 




jr 


nz, lighton 




4 
/ 




lightof f : 












clr 


MOTDEL 




; clear 


the motor delay 


lighton : 












ret 










LearnModeMotor : 










Id 


MaxSpeed, #12 




; Defau 


It to slower max. speed 




Id 


moto?_timer_h: , 


#HIGH (LEARNT I ME) 






Id 


MOTOR_TIMER_LC, 


#LOK (LEARN 


TIME) 






jr 


MotorTimeSet 




; Set door to longer run for learn 


• 


THIS IS THE MOTOR RPM 


INTERRUPT 


ROUTINE 




RPM: 














push 


rp 






• save current pointer 




srp 


#RPM_GROUP 






rpcint to these reg 




Id 


rpm temp c f , TC_ 


CFLOV." 




r Read the 2nd extension 


o 




rcr, t erne r. i , T C E 


XT 




■ read the timer extension 






rpm temp :c, TC 






; read the timer 




tm 


IRQ , #00010000 E 






■ test for a pending interrupt 




3 r 


Z, RPMTIMEOK 






r if not then time ok 


RPM^JM 


E ERROR : 












trr. 


r prr. t errp Ic, # I 0 0 0 C- 0 0 0 r 




; test for timer reload 


E s 


3 r 


z , RPMTIMEOK 






; if no reload time is ok 




decw 


r prr, t errp h i w c r d 




< 


? if reloaded then dec the hi tc resync 


RPM^SMEOK: 











cp 

3 r 
tm 
jr 

RPlffisGood : 
and 



RPM_FILTER, #128 
ult, Re jectTheR?: 

F3, #oooo:cio= 

nz, ReiectTheRPM 



imr, #lIlllC'Ilt 



Id divecunter, #03 

Div=a?deR?MLocr : 



rcf 
rr c 
rrc 
r re 
djnz 

Id 
Id 
sub 
she 

Id 

Id 

cp 



r pm_t emp_h i 
rpm_temr._lc 

divcounter, DivideRPMLocp 



Signal must have been high for 3 ms befo: 

the pulse is considered legal 

If the line is sitting high, 

then the falling edge was a noise pulse 



; turn off the interupt for up to 500uS 

; Set to divide by 6 (destroys value in RPM 



Reset the carry 

Divide the number by £ sc t hat- 
it will always fit within 16 bits 



; Loop three times (Note: This clears RPM FILTER 



r pm_pe r i c d_ 1 c , r prnjp a s t _ I c ; 
r pm_p e r i od_h i , r pm_p a s t _h i ; 

rpm_per ioc_lc , rprr._terr.p_lc ; find the period of the last pulse 
rprr_period_hi , rprr_terrp_hi ; 

rpm_past_lo, rpm_temp_lo ; Store the current time for the 
rpm_past_hi, rpm temp hi ; next edge capture 



TULS: 
INCRPM: 



SKIFC 



inc 



cp 



rprr_pe r i od_h i , # 1 2 
ult, SKI PC 



RPM_COUNT 
BRPM_COUNT 

RPM_ACOUNT 

z , MaxTimeOut 

S TATE , #DN_DI RE CT I ON 

2 , Down Time Ou _ 



test for a period of at least 6.144mS 

; if the period is less then skip counting 



; increase the rpm count 

; increase the rpm ccur.t 

; increase the rpm count 

; If we * re rarrx-inc the speed uc , 
en set the timeout at max. 

; If we're traveling down, 

; then set the timeout frcrr. the dew 



L.l 



- £ r- ^ - , 



UpTimeOut : 
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Id 
rcf 
rrc 
add 

MaxTimeOut : 
Id 

Down Time Out 
Id 
rcf 
rrc 
add 

GotTimeOut : 
Id 
ei 



rpm_time_out , UP_FORCE_HI 

rpm_t ime_out 
rpm_t ime_out , #2 
GotTimeOut 

rpm_t ime_out , #125 
GotTimeOut 

rpm_time_out , DN_FORCE_HI 

rprr._t iir.e_cut 
rprr. time out, #2 



Set the RPM timeout to be equal to the up force setting 

; Divide by two to account 
for the different prescalers 

; Round up and account for free-running prescale 



; Set the RPM timeout to be 500ms 



; Set the RPM timeout to be equal to the down force setting 

; Divide by two to account 
; for the different prescalers 

; Round up and account for free-running prescale 



BRPM_TIME_OUT , rpm_t ine_out ; Set the backup to the same value 



Position Counter 

Positier. is incremented when going down and decremented when 
going up. The zero position is taken to be the upper edge of the pass 
point signal (i.e. the falling edge in the up direction, the rising edge in 
the dowr. c i r e c t i on 



CD 
j- 



z, DecFcs 
STATE, #STO? 
z, DecPcs 
STATE, VST ~ 
z, DecPcs 



r ^ 



'est for the proper directicr. 



". cf the counter 



ThcPos : 



mew 

cp 
i r 



POSITION 
?PCINT_DEE, 



*2 



; iest for pass pcir.t being see: 
; If signal is low, none seen 



Ete^Point : 



or 



Pass Counter , # 1 COOCCOOb 
Ct rDcr.e 



; Mark pass point as currently high 



t.-cir.: 



V £^ -ta- ^. ^ . V V / T 

z , Past DnE doe 



:::e 



L_A_C, #C"4K 
z, Nc rrr.s 1 Cc wnEdoe 



At DnEdge : 

cp - 

— i -v r 

LearnDownEdge : 
di 

sub UF_LIKIT_LG, pcs:tio!;_lc 

Sbc UF_LIMIT_KI „ POSITIOK_HI 

dec PassCounter 

jr Lowes 1 1 
Normal DownEdge : 

dec PassCounter 

tm PassCounter, fcOllillllt 

jr nz, NotLowestl 
Lowest 1 : 

di 

clr 



POSITIOK_HI 

pcsitio:; ic, * 



ei 

NctLowest 1 



Id 

clr 

DontResetWa 1 1 3 : 



z , D r r. t Re s e t W a 1 1 3 
STATUS , # WALL OFF 
VAC FLASH 



; Test for pass point seen be 
; If not, then we're past the edge 

; Test for learning limits 
; if not, treat normally 



; Set the up position higher 

r 

; Count pass point as being seen 

; Clear the position counter 

; Mark as one pass point closer to floor 

; Test for lowest pass point 

; If not, don't zero the position counte 



; Set the position counter back to zero 



Test for in RS232 mode 



T 



t so, don't blink the LED 
; Blink the LED for pass point 
; Set the turn- off timer 
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PastDnEdge 
NoUpPPoint 
and 

jr 



PassCounter, #0111111 lb 
CtrDone 



; Clear the flag for pass point high 



DecPos : 



decw POSITION 

cp PFOINT_D£B, #2 

jr ult, NoUpFPc in- 



Test for pass point being seen 
If signal is low, none seen 



Uprroint : 

tir, 
jr 

AtUpEdge : 
trr. 
jr 

Lowest 2 : 

clr 
clr 
ei 

Nct^wes t2 
i r 

lit 1 c 



PassCounter, #100000 
nz , PastUpEdge 

PassCour.ter, #011111 
nz, NotLowest2 



POSITION_KI 
POSITION LO 



2, DontResetWal 12 
STATUS, #WAlLC>rr 
VAC FLASH 



lib 



Don-it Re s e t Wa 1 1 2 



7 1 n c 
cp 

Mt Id 
Fas a tUpEdge : 

s - cr 



FasSvCunter 
Pass Counter , FirstRu: 
ule, FcEiUpEdge 
PassCounter, FirstRu: 



; Test for pass point seen before 

; If so, then we're past the edge 

; Test for lowest pass point 

; If not, don't zero the position counte; 



Set the position counter back to zero 



c C ^f; ~ ^ ^ 



Test fcr in RS232 mode 
If so, don't blink the LED 
Blink the LED fcr pass pcint 
Set the turn-off timer 

Mark as one pass point higher abcve 
Test for pass point above max. value 
If not, we're fine 

Otherwise, correct the pass counter 
; Set the flag for pass point high before 



Ct£££>ne : 
Rej^ictTheRPM 

M i r e t 



rp 



; return the rp 
; return 



Tn 




IS THE SW 






0 


= > 


COMMAND T 


1 


= > 


WORKLIGHT 




= > 


VACATION 


3 


= > 


CHARGE 


4 


= > 


RSSTA7US 


5 


= > 


WALLOFF 



IKE 



TEH 



don't scan for switches 



=> WALLOFF — Turn cff the wall control LED 



SWITCH DATA 

0 => OPEN 

1 => COMMAND CMD 

2 => WORKLIGHT 
4 => VACATION" 



SW 



LIGHT_SK 
VAC SW 



switches 



e i 

; 4-22-97 
C? 



LIGK7_DEB, #CFFi 
NI , NctKeldDcwr. 



;is the light button being held? 
;if not debounced, skip long hoi 
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CP 
JR 
CP 
JK 
LD 

JR 

NotHeldDown 

CLR 
HeldDown : 



cp 

jP 

cp 

jr 
cp 

jF 

DF 

cr 



€3. 



C 0X1^2: Z TE. 

■2 c ? 



EnableWorkLight, tfOilOOOOOB ;has the 10 sec. already passed? 
GE, HeldDown 

EnableWorkLight, #01010000B 
LT, HeldDown 

EnableWorkLight , * 10000000B ;when debounce occurs, set register 

; to initiate e2 write in mainloop 

HeldDown 
EnableWorkLight 



SW_DATA, #LIGH7_SK 

STATUS, #WALLCFF 

ugt, start 

z, NoWailCtrl 

S TATU S , # RS S TAT U S 

z, NOTFLASHEE 

STATUS , #3 

2 , charge 

STATUS , *2 

2 , VAC AT I OIs"_TE ST 
CTr™nc it", 

z , W CRKL I GH 7 TEST 



VAC FLAG , #0 0K 
z, COMMAND TES' 



Clear all switches except fcr workligh 
; Test for illegal status 
; if so reset 
Turn off wall control state 

Check for in RS232 mode 
If so, skip the state machine 
test for illegal number 
if it is 3 then goto charge 
test for vacation 
if so then jump 
test fcr wcrkiight 
if so then jump 
else it id command 

test for vacation mode 

; if not vacation skip flash 



cp 



and 
cr 



nSSflashe: 

111 re: 



V^i v i L/"i S . . 
VAC FLASH , #1C, 
ult , COMMANE_TE, 
p3, *-CKARGE_SW 
p3, #DIS_SK 
VA Z FLA Sri , * £ C 
nz , NCTFLAS HE! 
VAC FLASH 



test 



; t es 



; increase the vacation flash tim- 
the vacation flash period 
if lower period skip flash 
turn off wall switch 
enable discharge 
the time delay for max 
; if the flash is not done jump- a: 
; restart the timer 

; return 



Nia&al 



ana 

cr 



ld 



KeepCf f : 



F3 , *~CHARGE_SW 

T Zi t ^ *-' — S w V'« 

VAC FLASH , * r ' 
ult, KeepOfr 
STATUS, # CHARGE 
SWITCH DELAY, * 



*m: del ex 



Turn off the circuit 

Update the off time 
; If off time hasn't expired, 
; keep the LED off 

; Reset the wall control 
; Reset the charge timer 



ret 



COMMAN I_TES' 
tm 

tm 

j r 

cmdclcse:-: 

; cal 1 

; call 
cp 

di 

* — 

ei 

cp 
~* r 

CMDEX: T : 



pO, * SWITCHES! 
nz, CKDCFEN 
PC, #SWITCHES2 
nz, CMDCPEN 



DEC VAC 
DECLIGHT 
CMD_DEE, #0FFK 
2, SKIFCMDINC 

CMD_DEE 



p ** w * , 



nz, CMDEXI 
Crr. d S e t 



; command sw pressed? 
; open command 

; test the second command input 

; closed command 

decrease vacation debounce 

; decrease light debounce 
,* test for the max number 

if at the max skip inc 

; increase the debcuncer 
; increase the debouncer 



; if not made then exit 

; Set the command switch 
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or 


p3, # CHARGE SW 






; turn on the charge system 




and 


p3,#-DIS SW 






• 

9 




Id 


SWITCH_DELAY, #CMD_DEL_EX 




set 


the delay time to 8mS 




Id 


STATUS, # CHARGE 






; charge time 


CMDDEL 


EXIT: 












ret 








* 


CmdSet 


• 












cp 


L_A_C, #07 OH 


i 


Tes 


t for in learn limits mode 




jr 


ult, RegCmdMake 






; If not, treat as normal command 




j- 


ugt , LeaveLAC 


t 


T -f 


learning, command button exits 




call 


S ET_U F_N OE L I N Y. 






; Set the up direction state 






CM DMAKE DON Z 






t 
f 


RegCmdMake : 














LEARN D3, # 0 FFH 






; Test for learn button held 




jr 


z, GoIntoLAC 


* 
t 


If 


so, enter the learn mode 


Norma ICrrid : 












di 












Id 


LAST_CMD , #05 5H 






; set the last command as command 


cmd : 


Id 


sk_data, #cmd_sw 






; set the switch data as command 




cp 


AUXLEARNSW, #100 






; test the time 






ugt, sk:f_learn 










push 


RP 








3, g 


5 rp 


#LEARNEE_GR? 










Cell 


setlear:; 






; set the learr. mode 




clr 


SW_DATA 






; clear the cmd 




pop 












cr 


p0, #LIGHT_ON 


t 


tur 






call 


TURN OK LI Gr ~ 






; turn or„ the liaht 


cm$2ak 


EDONE : 










SKI L E LEARN: 












id 


CMC DEE, # OFFH 






; set the debouncer tc ff one sho 




Id 
ei 


BCMD_DEE, # OFFH 






; set the debouncer tc ff one sho 




ret 










LejffreLAC: 












clr 


LAC 






; Exit the learn mode 




or 


ledpert , #Iedh 


* 


t ur 


r. eff the LED for program mode 




C ca -t 


SET STCr STATE 










j r 


CM DMAKE DONE 






/ 














Id 


L A C, #C~0K 






:; the learn limits mode 




clr 


FAULT CODE 






; Clear any faults that exist 




> — » — 


CodeFiac 






; Clear the regular learn mode 




Id 


LEARNT , # OFFH 


* 


T - - V 


n off the learn timer 




Id 


ERASET , #0FFH 


t 


rp, . ^ 


r. off the erase timer 






CM DMAKE DONE 









CMDOPEN : 

and 

or 

Id 

DEL LOOP : 

dec 

jr 

tm 

jr 

call 

call 
call 
Id 



p3 , * - CHARGE_S a 
p3, #DIS_SW 
DELAYC, #16 

DELAYC 

nz, DELLOOF 

pO, #SWITCHES1 

nz, TESTWL 

DECVAC 

DECLIGHT 

DECCKE 

AUXLEARNSW, #0F 
CM DIXIT 



command switch open 
turn off charging sw 
enable discharge 
set the time delav 



; loop till delay is up 
; command line still high 
; if so return later 
if not open line dec all debouncers 



turn off the aux learn switch 
and exit 



TESTWL 



-1 C 

ret 



STATUS, #W 



set tc test fcr a worklight 
return 
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WORKLIGHTJTEST : 

tir. pO, #SWITCHES1 



3 r 

call 

call 

cp 

jr 

inc 

SKIFLIGH7INC 

cp 

"■. >• 

j 

call 
i r 



nz,TESTVAC2 
DEC VAC 
DECCMD 

LIGK7_DEE, # OFFH 
z, SKIPLIGH7INC 
LIGHT_DE5 

LIGH7_DEE , * LIGK* 
nz, CKDEXI7 
Light Set 
CMDEXI7 



KAJ-'.E 



; command line still high 

; exit setting to test for vacation 
; decrease the vacation debouncer 
; and the command debouncer 

; test for the max 

; if at the max skip inc 

; inc debouncer 

; test for the light make 

; if not then recharge delay 

; Set the light debouncer 

; then recharge 



LightSet : 
Id 
1c 
cp 

cl r 
ret 



LIGH7_DEE , # OFFH 
SW_DA7A, #LIGH7_£K 
RRTO, #RDRO?7IKE 
uat , CMDEXIT 
A'JXLEARNSW 



; set the debouncer to max 
set the data as worklight 

; test for code reception 

; if not then skip the seting of flag 

; start the learn timer 



Z- ^ ■ v i-. >_ 



id 



z - 2 ret 



S 7 AT US , #VACJTE£' 



\ * z. " r ■ 



VASKTI0N_7ES7 : 

4» djnz switch delay, VA 



; set the next tes 
; set the delay 



t as vacat: en 



return 



a 



7, 



can 
cp 



VA^NCSKI? 



VAC IN 



cp 
call 



1 0 , # SWl . CHr. £ 1 



/ 1.'. 



DECLIGK7 
DEC CMC 

VAC_DEB, * 0 FFK 
z, VACINCSKI? 
VAC_DEr 

\ r i "~ ~ ~ z* 1 * " ■ " — 
z , VA.CCV7 

VAC_DEB, *VAC_K= 
n z , V A C A"* ION E X ~ 
VacSet 



; comrr.ar.d line still high 

; exit with a error setting ope: 

; decrease the light debouncer 
; decrease the command debouncer 

; test for the max 

; skip the incrementing 

; inc vacation debouncer 

; test for vacation mode 

; if not vacation use out time 



; test for the vacation 
; exit if not made 



maKe point 



VAC0U7 



i r 
ca. 



VAC_DEr , * VAC_MA?'] 
nz , VACA7IOK_EXIT 

* • — — . - - — 

VACATION EXIT 



; test for the vacation make pc 
; exit if not made 

; Forget vacation mode 



VacSet 



Id VAC_DEB, *CFFK 

cp AUX LEARN SW , # I 00 

j r ugt , SKI F_LEARNV 

push RF 

srp #LEARNEE_GRP 

call SET LEARN 

per R? 

r - r h.~ ~ ^ u- — r>~ 



; set vacation debouncer to max 
; test the time 



; set the learn mode 



; Turn on the wcrkliah" 



SKIr_LEARNV: 

Id VAC CHANCE , * DAAH 



; set the tooaie data 
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cp RRTO, #RDROPTIME 

j r u g t , VACAT I ON_£X I T 

clr AUXLEARNSW 
VACATION_EXIT: 

Id SWITCH_DELAY, #VAC_DEL_EX 

Id STATUS, # CHARGE 
VACDELEXIT: 

re: 



J 

; test for code reception 

; if not then skip the seting of flag 

; start the learn timer 

; set the delay 

; set the next test as charge 



EXIT_ERROR: 

call DECCMH ; decrement the denouncers 

call DECVAC 

call DEC LIGHT ; 

Id SWITCH_DELAY , *7AC_DEL_EX ; set the delay 

Id STATUS, # CHARGE ; set the next test as charge 

ret 



or p3, #CHARGE_SW 

and p3,#-DI£_SW 

dec SWITCK_DELAY 

j r n: , charge_re t 

— Id CT , r i T-<;i c £ ~ t-c — 

cr.aT ge_re; : 
ret 



J ; s 

DEfCMD: 

cp 

ce c 
ei 

SF§y?CMDDEC: 
ri jr 

"T? - -. 

DEStMDEXIT: 



CMD_DE5 , #0 

z, skipckdd: 
bc:-:: deb 



CMD_DE5, #CM~_BREA?' 
nz, DECCMDEXI7 
CiridRe 1 



ret 



CmdRel : 

cp 
jr 

call 
NormCmdEreak 
di 
clr 
clr 
ei 
re* 



L A C , # 0 ■' G H 

nz , NormCmdE re = >: 

SET STOP STATE 



CMD_DEE 
BCKC DEE 



; test for the min number 
the min skip dec 



; aecre-.er.t aeo ounce 
; cecreir.ent debounce 



; if not at break then exit 

; if not break ther. exi 



anc exit 



; Test for in learn mode 

; If net, treat normally 
; Stop the door 



; reset the debounce r 
; reset the debouncer 



DEC LI GH i '. 

cp LIGH7_DEB, #0GK 

jr z , SKI FLIGHT DEC 

dec LIGHT_DEB 

SKIPLIGHTDEC : 

cp LIGHT_DEB, #LIGHT_BREAK 

jr nz , DECLIGHTEXIT 

DE CLICK TEX IT : 
ret 



; test for the min number 

; if at the min skip dec 

; decrement debouncer 

; if not at break then exit 

; if not break then exit 

; reset the debouncer 

; and exit 



DECVAC : 

cp VAC DEE,#CCK ; test for the min number 
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3* 

dec 
^KIPVACDEC: 
cp 
jr 

DECVACIN: 
cp 
jr 



z, SKIPVACDEC 
VAC_DEB 

VAC FLAG, #00H 
2 , DECVACOUT 

VAC_DEE, # VA C_BRE AK_ I N 
nz, DECVACEXIT 
CLEAR VAC DEB 



; if at the min skip dec 

; decrement debouncer 

; test for vacation mode 

; if not vacation use out time 

; test for the vacation break poirr 
; exit if not 



DECVACO T JT : 
cp 
jr 

CLEAR VACDEB 
clr 

DECVACEXIT: 
ret 



VAC_DEB, #VA' 
nz, DECVACEX: 

VAC DEB 



BREAr 



0*J' 



; test for the vacation break point 

; exit if not 

; reset the debouncer 

; and exit 



FORCE TABLE 



force table : 



f C sS^; 



. byte 


OOOK, 


0 6BK, 


0 6CK 


. byte 


OOOK, 


0 6EK, 


oecK 


. byte 


OOOK, 


0 6DK, 


07 3K 




OOOK, 


0 6FK, 


06EK 


. byte 


OOOK, 


0 7 I K , 


OBEK 


. byte 


OOOK, 


074K, 


004K 


. byte 


OOOK, 


07 6K, 


0€2K 


. byte 


OOOK, 


07 BK, 


0 DAK 


. byte 


OOOK, 


07BK, 


0 6CK 


. byte 


OOOK, 


C7EK , 




• b \ e 


L/ \, 'w - » , 


0S0K, 


GE 6 K 


. byte 


OOOK , 


083K, 


0D€K 


. byte 


OOOK , 


06 6K, 


0 9BK 


. byte 


OOOK , 


oe9K, 


07 FK 


. bvte 


OOOK, 


osck, 


064K 


. byte 


OOOK, 


OSFK, 


GAB H 


. byte 


OOOK, 


092K, 


0F"K 


. byte 


OOOK, 


09£K, 


0 6SK 


. bvte 


OOOK, 


CSAK, 


OCSfK 


.byte 


r- ' ' 
Uuur. , 


- - 


0D5K 


. bvte 


OOOK, 


0A1K, 


CD2K 


. byte 


OOOK, 


0A€K, 


G 0 4 K 


. byte 


OOOK, 


0 AAK , 


C"€K 


. bvte 


OOOK, 


OAFK, 


G 2 ~ K 


. byte 


OOOK, 


0B4K, 


OiCK 


. byte 


OOOK, 


0B9K, 


05BK 


. byte 


OOOK, 


OBEK, 


OEBK 


.bvte 

■mi 


OOOK, 


0C4H, 


0D3K 


. byte 


OOOK, 


OCBK , 


01BK 


. byte 


OOOK, 


0D1H, 


OCDK 


. byte 


OOOK, 


0D6K, 


0F4K 


. byte 


0 c un , 


OEOK, 


0 9CK 


. byte 


OOOK, 


0E7K, 


OICK 


. byte 


OOOK, 


OEDK, 


0FFK 


. byte 


OOOK, 


0F5K, 


04 FK 


. byte 


OOOK, 


OFDK, 


01 5K 


. byte 


001K, 


005H, 


05DH 


. bvte 


c::k, 


CCEK, 




. byte 


c 0 1 , 


017K, 


0A5K 


. byte 


0 0 1 K , 


Cyi r. , 


0D2K 




v ^ - r. , 


r*- ~. . . 
^ *i - .~ , 










0 z OK 


. byte 




045K, 


03AK 


. byte 


\- ^ — r~. , 


_ _. _ . . i 


0 C E K 


. bvte 


0 G I K , 


062K, 


01 OK 
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. byte 


001H, 


072H, 


07 DK 


. byte 


001H, 


084H, 


063H 


. byte 


001H, 


098H, 


061H 


. byte 


001H, 


OAEH, 


064H 


. byte 


001H, 


0C6H, 


0E8K 


. byte 


001H, 


0E2H, 


062H 


. byte 


002H, 


001H, 


0€5K 


.byte 


002H, 


024K, 


OAAH 


. byte 


002H, 


04DH, 


C24H 


. byte 


002H, 


07CK, 


01 OH 


. bvte 


0G2H, 


0E3K, 


02 EH 


. byte 


002H, 


0F4K, 


0 9 4 H 


. byt e 


003K, 


04 3H, 


0C1K 


. byte 


003H, 


0A5K, 


07 IK 


bvt e 


004H . 


02 OH . 


OFCH 


. byte 


004H, 


0C2H, 


036H 


. byte 


005H, 


09DK, 


06 CH 


. byte 


013H, 


012K, 


ODOH 


f_63: .byte 


013H, 


C12H, 


ODOH 


SI MUTABLE: 










.WORD 


00000: 






. WORD 


r - . ■- '. ' - 

s» - > - • 






. wor: 


,"■)'■ ■" f «- • 
\J L' vJ * 






. WORD 


00000> 




y i 


. WORD 


coooc? 






. WORD 


0 0 0 0 0 : 




§ Z |[ 


. WORD 


coooc? 






. WORD 


OOOOOr 






. WORD 


OOOOOr 






. WORD 


OOOOOr 






. WORD 


OOOOOr 






. wor: 


^ ^ r m 

L w ^ _■ _ : 






. WORD 


ooooo;- 






. WORD 


00000? 






. WORD 


OOOOOr 






. WORD 


OOOOOr 





; Numbers set tc zero (proprietary table) 



SPf^D_TABLE_50 : 



.BYTE 


4 0 


. BYTE 


34 


. EYTE 


C <- 


. BYTE 


3C 


.BYTE 


28 


.BYTE 


27 


. BYTE 


25 


.EYTE 


24 


.BYTE 


23 


.BYTE 


21 


.BYTE 


20 


. BYTE 


19 


. BYTE 


17 


.BYTE 


16 


.BYTE 


15 


.BYTE 


13 


.BYTE 


12 


.BYTE 


10 


.BYTE 


e 


. BYTE 


6 


PVTT 


n 



SPEED TAELE €0: 



. BYTE 2 9 
. EYTE 2" 1 
. EYTE 2 5 
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.BYTE 


23 


.BYTE 


22 


. BYTE 


21 


. BYTE 


20 


. BYTE 


19 


.BYTE 


18 


.BYTE 


17 


. BYTE 


16 


.BYTE 


15 


.BYTE 


13 


.BYTE 


12 


. BYTE 


11 


. BYTE 


10 


. BYTE 


8 


.BYTE 


7 


.BYTE 


5 


. BYTE 


0 



; Fill 4 9 bytes of unused memory 

FILL10 
FILL10 
FILL10 



FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
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